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

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

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

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

textual
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.

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


СОХРАНИТЬ ССЫЛКУ