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

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

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


textual

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

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;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник
Похожие ответы