Question

Поиск суммы, количества и произведения в каждой строке (столбце) двумерного массива. (Отдельными командами в Paskal)

Answer 1

Ответ:

Объяснение:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

Program lab5;

Var

A: array [1..10,1..15] of real;

i, j, m, n: integer; s, p, min, max: real;

Begin

writeln('Введи m,n'); read(m,n);

writeln('Введи массив A');

for i:=1 to m do

 for j:=1 to n do

  read(A[i,j]);

s:=0; p:=1; min:=A[1,1]; max:=A[1,1];

for i:=1 to m do for j:=1 to n do

  begin

   s:=s+A[i,j]; p:=p*A[i,j];

   if A[i,j]<min then min:=A[i,j];

   if A[i,j]>max then max:=A[i,j];

  end;

writeln('s=',s:10:3,'  p=',p:10:3,

 '  min=',min:10:3,'  max=',max:10:3);

End.

Answer 2

это правильно у меня тоде такой вопрос

Answer 3

Вам нужно написать программу на Pascal, которая выполняет следующие операции для каждой строки и каждого столбца двумерного массива:

1. Найти сумму элементов в строке (столбце).
2. Найти количество элементов в строке (столбце).
3. Найти произведение элементов в строке (столбце).

Вот пример Pascal-кода, который может выполнить это:

pascalCopy code
program ArrayOperations;

const
  Rows = 3; // Количество строк в массиве
  Cols = 4; // Количество столбцов в массиве

var
  arr: array[1..Rows, 1..Cols] of Integer;
  i, j: Integer;
  sum, count, product: Integer;

procedure InitializeArray;
begin
  // Заполните массив arr вашими данными
  // Например, можно использовать циклы для ввода элементов
end;

begin
  InitializeArray;

  // Выполняем операции для каждой строки
  for i := 1 to Rows do
  begin
    sum := 0;
    count := 0;
    product := 1;

    for j := 1 to Cols do
    begin
      sum := sum + arr[i, j];
      product := product * arr[i, j];
      count := count + 1;
    end;

    writeln('Строка ', i, ':');
    writeln('Сумма = ', sum);
    writeln('Количество = ', count);
    writeln('Произведение = ', product);
  end;

  // Выполняем операции для каждого столбца
  for j := 1 to Cols do
  begin
    sum := 0;
    count := 0;
    product := 1;

    for i := 1 to Rows do
    begin
      sum := sum + arr[i, j];
      product := product * arr[i, j];
      count := count + 1;
    end;

    writeln('Столбец ', j, ':');
    writeln('Сумма = ', sum);
    writeln('Количество = ', count);
    writeln('Произведение = ', product);
  end;

  readln;
end.

Программа сначала инициализирует двумерный массив arr данными, а затем выполняет операции суммы, количества и произведения для каждой строки и столбца массива.