Question

Помогите с информатикой 60 баллов. Двумерный массив. Паскаль. 1) Дан двумерный массив размерностью 5 на 7. Найти максимальный элемент массива. 2) Дан двумерный массив размерностью 5 на 7. Найти произведение четных элементов.

Answer 1

Const
  m=5;
  n=7;
var
  a:array[1..m,1..n] of integer;
  i,j,amax:integer;
  p:real;
begin
  Randomize;
  Writeln('Исходный массивэ');
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(90)+10;
      Write(a[i,j]:3)
      end;
    Writeln
    end;
  {Задача 1}
  amax:=a[1,1];
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j]>amax then amax:=a[i,j];
  Writeln('Максимальный элемент равен ',amax);
  {Задача 2}
  p:=1;
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j] mod 2=0 then p:=p*a[i,j];
  Writeln('Произведение четных элементов равно ',p);
end.

Пример работы
Исходный массивэ
 94 20 49 80 70 55 40
 62 74 71 51 88 10 76
 68 11 11 74 96 50 69
 98 34 25 93 52 53 61
 68 85 35 15 77 78 97
Максимальный элемент равен 98
Произведение четных элементов равно 2.86826492979212E+33

Answer 2

Для решения задачи по поиску максимального элемента в двумерном массиве размерностью 5 на 7 в языке программирования Паскаль, вы можете использовать следующий алгоритм:

1. Создайте двумерный массив размерностью 5 на 7, например, с именем "arr". 2. Инициализируйте переменную "maxElement" значением первого элемента массива arr[1][1]. 3. Переберите все элементы массива arr построчно с помощью циклов. 4. В каждой итерации сравните текущий элемент с переменной "maxElement". Если текущий элемент больше "maxElement", обновите значение "maxElement" на значение текущего элемента. 5. По окончании перебора всех элементов массива, "maxElement" будет содержать максимальное значение в массиве.

Пример кода на языке Паскаль:

program MaxElementInArray;

const
  ROWS = 5;
  COLS = 7;

var
  arr: array[1..ROWS, 1..COLS] of Integer;
  i, j, maxElement: Integer;

begin
  // Заполнение массива arr случайными значениями
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      arr[i][j] := Random(100); // Генерация случайного числа от 0 до 99
    end;
  end;

// Нахождение максимального элемента
  maxElement := arr[1][1];
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      if arr[i][j] > maxElement then
        maxElement := arr[i][j];
    end;
  end;

// Вывод результата
  writeln('Максимальный элемент в массиве: ', maxElement);
end.

В этом примере мы сначала заполняем массив `arr` случайными значениями от 0 до 99 с помощью вложенных циклов. Затем мы инициализируем переменную `maxElement` значением первого элемента массива `arr[1][1]`. Затем мы перебираем все элементы массива `arr` с помощью еще двух вложенных циклов и сравниваем каждый элемент с текущим максимальным значением `maxElement`. Если текущий элемент больше `maxElement`, мы обновляем значение `maxElement`. В конце мы выводим найденное максимальное значение на экран.