Программа формирует массив из сумм элементов матрицы, стоящих в одной строке — Pascal(Паскаль)

type mas1=array[1..5,1..5] of integer;
     mas2=array[1..5] of integer;
var m1:mas1; m2:mas2; i,s,j:integer;
begin
for i:=1 to 5 do
 begin
  for j:=1 to 5 do
   begin
   m1[i,j]:=random(10);
   write(m1[i,j]:3);
   end;
  writeln;
 end;
 for i:=1 to 5 do
 begin
  s:=0;
  for j:=1 to 5 do s:=s+m1[i,j];
  m2[i]:=s;
 end;
 
 for s:=1 to 5 do
   write(m2[s]:4);
   writeln;
end.

Leave a Comment

83 − = 81