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

0 0

4 года назад

Любое ли словесное описание можно заменить табличной информационной моделью? Приведите пример.

nikita131

Под каждое словесное описание можно подобрать информационную модель.

0 0

5 лет назад

Лаборатарная работа 4 по информатике 10

Гуляева Светлана

4*10=40(вы)вот тот.мтдб

0 0

3 года назад