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 года назад

Вставь пропущенные слова.Назначение информационной системы:--------- и использование документов с---------------------------.Док

тидро

Назначение иформационной системы: хранение и использование документов с данными. Документы могут быть представлены на бумажных и электронных носителях информации.

0 0

4 года назад

Сколько есть натуральных чисел от 1 до 105, для которых верно утверждение: (Последняя цифра числа четна И число кратно 3) ИЛИ (Ч

Горошникова Лизавета [59]

Program ryazantsev;
var i,k:integer;
begin
k:=0;
for i:=1 to 105 do if (((i mod 10) mod 2 = 0) and (i mod 3 = 0)) or (i<10) then k:=k+1;
writeln(k)
end.

Таких чисел 25, запустите программу и убедитесь сами.

0 0

4 года назад