Для динамического массива подсчитать количество его элементов, больших среднего арифметического значения всех его положительных элементов
Нужно что бы массив задавался аналогично как в этом примере: Десять раз генерировать последовательность из случайного количества целых чисел от 0 до 99. В каждой последовательности найти максимальное число. Сохранить эти максимальные числа и вывести их на экран.
PHP код:
Type arrdin = array[1..40] of integer;
Var arrmax: array[1..10] of integer;
row: ^arrdin;
n, i, j, k: integer;
begin
randomize;
for i:=1 to 10 do
Begin
n:=random(40)+1;
getmem(row,n*sizeof(integer));
for k:=1 to n do
Begin
row^[k]:=random(100); write(row^[k],',')
End; Writeln;
arrmax[i]:=row^[1];
for k:=2 to n do
if row^[k]>arrmax[i] then arrmax[i]:=row^[k];
freemem(row,n*sizeof(integer));
end;
for i:=1 to 10 do write(arrmax[i],' ');
Writeln
end.