Реферат: Одномерные массивы. Организация ввода и вывода данных

writeln('max=',max);

For i:=1 to 3 do begin

a[i,i]:=max;

a[i,3+1-i]:=max; end;

for i:=1 to 3 do begin

for j:=1 to 3 do write(a[i,j]);

writeln;

end; readln;end.

Задание 24.

Написать программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет сумму его элементов:

а) По столбцам;

б) По строкам.

Program P4;

var a:array [1..3,1..3] of integer;

i,j,Sh1,Sh2,Sh3,Sd1,Sd2,Sd3:integer;

Begin

for i:=1 to 3 do

for j:=1 to 3 do read(a[i,j]);

for i:=1 to 3 do begin

Sd1:=a[i,1]+Sd1;

Sd2:=a[i,2]+Sd2;

Sd3:=a[i,3]+Sd3; end;

for j:=1 to 3 do begin

Sh1:=a[1,j]+Sh1;

Sh2:=a[2,j]+Sh2;

Sh3:=a[3,j]+Sh3;end;

Writeln('Symma 1-i stroki=',Sh1);

Writeln('Symma 2-i stroki=',Sh2);

Writeln('Symma 3-i stroki=',Sh3);