Матрицы

[radon228]

1)Сгенерировать массив 4*5 из случайных чисел в интервале от 1 до 50.
Найти сумму элементов каждого столбца матрицы.

2)Спираль.размерность 10*10. Из нижнего левого - право.


Надеюсь на вашу отзывчивость.

[ROMA2PVT]

Uses
   CRT;
Const
 n=4;m=5;
var
  mas:array[1..n,1..m] of integer;
  i,j,sum:integer;
begin
Clrscr;
  randomize;
  writeln('Массив: ');
  for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        mas[i,j]:=random(51);
        write(mas[i,j]:3,' ');
      end;
      writeln;
    end;
  writeln;
   sum:=0;
  for j:=1 to m do
    begin
    sum:=0;
      for i:=1 to n do
          sum:=sum+mas[i,j];
      writeln('СУмма элементов ',j,'-го столбца: ',sum);
    end;
  readkey;
end.

-I-

[Grag]

Вот это - mas[i,j]:=random(51);
запиши так : mass[i,j]:=1+random(50);
иначе не получишь диапазон, заданный в задании...

[radon228]

Спасибо большое)очень благодарен вам.