Question

ДАЮ 50 БАЛЛОВ, ПАСКАЛЬ
Дан целочисленный массив А(30)
Найти количество элементов, больших первого элемента
*Пожалуйста, напишите полностью программу

Answer 1

Ответ:

program k;

var m:array [1..30] of integer;

i,k:integer;

begin

k:=0;

for i:=1 to 30 do

begin

m[i]:=random(10);

write(m[i],' ');

if m[i]>m[1] then k:=k+1

end;

writeln;

write(k)

end.