СРОЧНО, ПОЖАЛУЙСТА, НАПИШИТЕ КТО-НИБУДЬ, НА ЗАВТРА НАДО, УМОЛЯЮ, Я УЖЕ 30 РАЗ ЭТО ЗАДАНИЕ ПОСЫЛАЮ, НАПИШИТЕ!!!

+ 0 -

Gamaigamai600

28 окт. 2013 г., 17:46:43 (10 лет назад)

Uses crt;
const
n = 5;
var 
a: array [1..n, 1..n] of integer; 
i, j: byte; 
sum1, sum2: integer; 
begin
writeln('Массив: ');
Randomize;
for i:=1 to n do 
begin 
for j:=1 to n do   
begin   
a[i,j]:=Random(31);   
write(a[i,j]:4);   
end; 
writeln; 
end; 
for i:=1 to n-1 do   
for j:=n downto i+1 do     
begin     
if a[j, i] mod 2 = 0 then sum1 := sum1 + a[j, i];     
if a[i, j] mod 2 <> 0 then sum2 := sum2 + a[i, j];     
end;   
writeln('Под главной диагональю (парные) = ', sum1:5);   
writeln('Над главной диагональю (непарные) = ', sum2:5);
end.