Помогите с информатикой 60 баллов. Двумерный массив. Паскаль. 1) Дан двумерный массив размерностью 5 на 7. Найти максимальный элемент массива. 2) Дан двумерный массив размерностью 5 на 7. Найти произведение четных элементов.
Помогите с информатикой 60 баллов.
Двумерный массив. Паскаль.
1) Дан двумерный массив размерностью 5 на 7. Найти максимальный элемент массива.
2) Дан двумерный массив размерностью 5 на 7. Найти произведение четных элементов.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы