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
32мб=32000кб
128Гбит=16000мб
64Кб=512000бит
1024Мб=8192000кбит
32Кбит=0,004мб