Const
n = 25;
var
a, b, c: array[1..n] of integer;
i, nb, nc, mx, mn, s: integer;
begin
Randomize;
Writeln('*** Элементы первого массива ***');
nb := 0; nc := 0; mx := -99; mn := 99; s:=0;
for i := 1 to n do
begin
a[i] := Random(101) - 60;
Write(a[i]:4);
if a[i] > 0 then begin
nb := nb + 1; b[nb] := a[i];
if mx < b[nb] then mx := b[nb]
else if mn > b[nb] then mn := b[nb]
end;
if (a[i] mod 4 = 0) then begin
nc := nc + 1; c[nc] := a[i]; s:=s+c[nc]
end
end;
Writeln(#13#10, '*** Элементы второго массива ***');
for i := 1 to nb do Write(b[i]:4);
Writeln(#13#10, 'Максимальный элемент ', mx, ', минимальный ', mn);
Writeln('*** Элементы третьего массива ***');
mx:=0;
for i := 1 to nc do Write(c[i]:4);
Writeln(#13#10, 'среднее значение равно ', s/nc:0:5)
end.
Тестовое решение:
*** Элементы первого массива ***
14 -16 -8 4 -45 -37 30 25 12 20 -8 28 -26 -58 23 -13 -27 -5 -54 -40 -48 -58 -50 -14 2
*** Элементы второго массива ***
14 4 30 25 12 20 28 23 2
Максимальный элемент 30, минимальный 2
*** Элементы третьего массива ***
-16 -8 4 12 20 -8 28 -40 -48
среднее значение равно -6.22222