Напишите программу в паскале на нахождение суммы главных диагоналей для квадратной матрицы. Помогите, пожалуйста
Answers & Comments
34003750202Program matrica; Uses crt; Var a:array [0..8 , 0..8] of integer; sum1,sum2,i,j:integer; begin randomize; sum1:=0; sum2:=0 for i:=1 to 8 do begin Writeln; for j:=1 to 8 do begin a[i,,j]:=random(10); if i=j then sum1:=sum1+a[i,j]; if i+j=9 then sum2:=sum2+a[i,j]; Write(a[i,j], ' '); end; end; writeln('Сумма чисел первой диагонали -',sum1,' 'Сумма чисел второй диагонали' ,sum2,'); end.
Answers & Comments
Uses crt;
Var a:array [0..8 , 0..8] of integer;
sum1,sum2,i,j:integer;
begin
randomize;
sum1:=0;
sum2:=0
for i:=1 to 8 do
begin
Writeln;
for j:=1 to 8 do
begin
a[i,,j]:=random(10);
if i=j then sum1:=sum1+a[i,j];
if i+j=9 then sum2:=sum2+a[i,j];
Write(a[i,j], ' ');
end;
end;
writeln('Сумма чисел первой диагонали -',sum1,' 'Сумма чисел второй диагонали' ,sum2,');
end.