Uses Crt; const n=5;m=7; var a:array[1..n,1..m]of integer; b:array[1..m]of real; i,j,k,c:integer; s:real; begin clrScr; for i:=1 to n do begin writeln; for j:=1 to m do begin a[i,j]:=random(30); write(a[i,j]:4); end; end; writeln; for j:=1 to m do begin s:=0;k:=0; for i:=1 to n do if a[i,j]mod 2<>0 then begin s:=s+a[i,j]; k:=k+1; end; if k<>0 then begin c:=c+1; b[c]:=s/k; end; end; for i:=1 to c do write(b[i]:8:2); readkey; end.
программа генерирует массив случайной длины от 10 до ста элементов с значениями в диапазоне 10..9999999
затем выводит все элементы у которых первая цифра больше второй.
var
n : integer;
d : array of integer;
begin
n := random(10, 100);
d := new integer[n];
d := arrRandom(n, 10, 9999999);
for var i := 0 to n-1 do begin
var a1, a2 : integer;
a1 := d[i];
repeat
a1 := a1 div 10;
until a1 < 10;
a2 := d[i] mod 10;
if a1 > a2 then writeln(d[i]);
end;
end.