Code
program massiv;
var a:array[1..5,1..5] of integer;
i,j:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
readln (a[i,j]);
if i>j then (a[i,j]):=0;
end;
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:3);
writeln;
end;
readln;
end.
Добавлено (27.06.12, 22:57)
---------------------------------------------
не заметил что элементы четные
тогда
Code
program massiv;
var a:array[1..5,1..5] of integer;
i,j,b:integer;
begin
for i:=1 to 5 do
begin
for j:=1 to 5 do
begin
readln (a[i,j]);
b:=a[i,j];
if (b mod 2=0) and (i>j) then (a[i,j]):=0;
end;
end;
for i:=1 to 5 do
begin
for j:=1 to 5 do
write(a[i,j]:3);
writeln;
end;
readln;
end.
