Question

Pascal. Составить программу, которая вводит по строкам с клавиатуры двумерный массив и вычисляет сумму его элементов. Нарисовать Блок-схему.

Answer 1

Программа на паскале внизу

Answer 2

Для решения данной задачи необходимо использовать циклы для перебора всех элементов массива и переменную для хранения суммы элементов.

Блок-схема решения задачи:

markdownCopy code
┌─────────────┐
│ Начало программы │
└─────────────┘
         │
         ▼
┌─────────────┐
│ Ввод размеров массива │
└─────────────┘
         │
         ▼
┌─────────────┐
│ Создание массива │
└─────────────┘
         │
         ▼
┌─────────────┐
│ Цикл по строкам массива │
└─────────────┘
         │
         ▼
┌─────────────┐
│ Цикл по столбцам массива │
└─────────────┘
         │
         ▼
┌─────────────┐
│ Суммирование элементов │
└─────────────┘
         │
         ▼
┌─────────────┐
│ Вывод суммы │
└─────────────┘
         │
         ▼
┌─────────────┐
│ Конец программы │
└─────────────┘

Программа на языке Pascal:

arduinoCopy code
program sum_of_elements;

var
  arr: array of array of integer;
  sum, i, j, n, m: integer;

begin
  write('Введите количество строк: ');
  readln(n);
  write('Введите количество столбцов: ');
  readln(m);

  SetLength(arr, n, m);
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
    begin
      write('Введите элемент [', i+1, ',', j+1, ']: ');
      readln(arr[i, j]);
    end;
  end;

  sum := 0;
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
    begin
      sum := sum + arr[i, j];
    end;
  end;

  writeln('Сумма элементов массива равна ', sum);

end.