15-03-2008-2.txt

// dunno

program Untitled;

uses CRT, DOS;

var
tablica1,tablica2,tablica3:array[1..10 , 1..10] of integer;
x,y:integer;


begin
writeln('tablica a:');
writeln;
for x:=1 to 10 do

begin
for y:=1 to 10 do
begin
tablica1[x,y]:=x+y;
writeln('x: ',x,' y: ',y);
         end;
    end;

writeln;
writeln;
writeln('tablica b:');
writeln;
for x:=1 to 10 do

begin
for y:=1 to 10 do
begin
tablica2[x,y]:=x+y;
writeln('x: ',x,' y: ',y);
         end;
    end;

writeln;
writeln;
writeln('tablica c:');
writeln;
for x:=1 to 10 do
 if x mod 2=0 then
begin
for y:=1 to 10 do
begin
tablica1[x,y]:=x+y;
    if y mod 2=0 then
writeln('x: ',x,' y: ',y);
         end;
    end;





readln;
end.

// omg

program Untitled;

uses CRT, DOS;

var
tablica1,tablica2:array[1..10] of integer;
tablica3:array[1..20] of integer;
a,b,x,z,c:integer;


begin
for x:=1 to 10 do
begin
z:=random(100);
tablica1[x]:=z;
writeln(tablica1[x]);
end;

for x:=1 to 10 do
begin
z:=random(100);
tablica2[x]:=z;
writeln(tablica2[x]);
end;

b:=1;
for x:= 1 to 10 do
begin
a:=tablica1[x];
c:=a mod 2;
if c = 0 then
begin
tablica3[b]:=a;
inc(b);

end;

end;

for x:= 1 to 20 do
begin
writeln(tablica3[x]);
end;

 readln;
end.