Найбольшее число символов 225
const
n = 5;
m = 5;
var
a, b: array[1..n, 1..m] of integer;
c: array[1..n, 1..m] of real;
i, j, s, count: integer;
begin
for i := 1 to n do
for j := 1 to m do begin
a[i, j] := random(20);
b[i, j] := random(20);
s := s + a[i, j] + b[i, j];
inc(count);
end;
writeln('Ср. арифметическое эл.: ', s / count);
for i := 1 to n do
for j := 1 to m do begin
c[i, j] := s / count;
write(c[i, j], ' ');
if(j mod m = 0) then writeln;
end;
end.
<span>нужно найти в массиве минимальный элемент из тех, которые не меньше 180. Это стандартная задача, она решается примерно так:[pre2] const N = 10; var A: array[1..N] of integer; k: integer; ... min := MaxInt; { записываем в min большое число, здесь - больше 200 } for k:=1 to N do if (A[k] >= 180) and (A[k] < min) then min := A[k]; writeln(min); [/pre2]</span>