Найти сумму всех элементов двумерного массива, расположенных на главной диагонали - Turbo Pascal

Формулировка задачи:

Найти сумму всех элементов двумерного массива целых чисел размерностью 5*5, расположен-ных на главной диагонали. Заполнение массива осуществить с клавиатуры.

Код к задаче: «Найти сумму всех элементов двумерного массива, расположенных на главной диагонали - Turbo Pascal»

textual
sum:=0;
for i:=1 to 5 do
begin
  for j:=1 to 5 do
  begin
    write('a[',i,',',j,']=');
    readln(a[i,j]);
    if i=j then sum:=sum+a[i,j];
  end;
end;

6   голосов, оценка 3.667 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы