Гость Оʻzbek tili Архивный вопрос

Помогите,пожалуйста, решить задачу в паскале.\"заполнить двумерный массив 5*5 при помощи счетчика случайных чисел и найти сумму элементов массива.Полученный результат вывести на экран\"

Нет комментариев

Ответы

Гость Гость

Const
  n = 5;

var
  a: array[1..n, 1..n] of integer;
  i, j, sum: integer;

begin
  Randomize;
  Writeln(\'Исходный массив\');
  sum := 0;
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(100) + 1;
      Write(a[i, j]:4);
      sum := sum + a[i, j]
    end;
    Writeln
  end;
  Writeln(\'Сумма элементов равна \', sum)
end.

Пример выполнения
Исходный массив
  78  95  84  80  19
   9  98  18  71  52
  33  42  27  79  17
  91  54  85  50  52
  62  98  53  86  59
Сумма элементов равна 1492



Ответ ни кто не комментировал
Гость Гость

// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(5,5,-99,99);
  a.Println(4); Writeln(4*a.ColCount*\'-\');
  Writeln(\'S=\',a.Rows.SelectMany(x->x).Sum)
end.

Пример
 -63  -5 -82  89  74
 -43 -21  68 -41 -68
 -72  34  40 -54 -55
 -77 -25 -89  55 -30
 -87  -3  71   4 -23
--------------------
S=-403

Ответ ни кто не комментировал