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