Предмет: Информатика,
автор: solod80yhin
Написать программу на языке паскаль:
Задан двумерный массив 4х4 из случайно сгенерированных чисел. Найти сумму элементов находящихся на главной диагонали.
Ответы
Автор ответа:
2
var
a:array [1..4,1..4] of integer;
i,j,sum:integer;
begin
sum:=0;
for i:=1 to 4 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(101)-50;
write(a[i,j]:4);
end;
sum:=sum+a[i,i];
writeln;
end;
writeln('sum: ',sum);
end.
Если моё решение вам помогло, отметьте его как лучшее. Спасибо! Удачи!
Похожие вопросы
Предмет: Русский язык,
автор: Саранцева
Предмет: Русский язык,
автор: leshenkohelen
Предмет: Русский язык,
автор: 87058019645
Предмет: География,
автор: dimacherepanov1999
Предмет: Русский язык,
автор: arturnektarevsky