Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива - Turbo Pascal

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

Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива


textual

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

var
A:array [1..3,1..3] of integer;
i,j,sum: integer;
 
begin
for i:=1 to 3 do
    for j:=1 to 3 do
    readln(A[i,j]);
for i:=1 to 3 do begin
    writeln;
    for j:=1 to 3 do
    write(A[i,j],' ');
    end;
sum:=0;
for i:=1 to 3 do
    for j:=1 to 3 do
    sum:= sum + A[i,j];
writeln('Summa = ',sum);
end.
Эта работа вам не подошла?

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


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

8   голосов, оценка 4.125 из 5

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