Дан массив из N чисел. Найти количество элементов, значение которых будет больше первого элемента.

Question

Информатика

Тарас

15 ноября, 01:55

Дан массив из N чисел. Найти количество элементов, значение которых будет больше первого элемента.

+4

Ответы (1)

Знаете ответ на вопрос?

Мишуля · Answer 1

Const

N = 13;

Var

A:array[1 ... N] of integer;

i, k:integer;

Begin

Randomize;

k:=0;

For i: = 1 to N do

Begin

A[i]:=random (N) ;

Write (A[i],' ') ;

if A[i]>A[1] then k:=k+1;

End;

WriteLn;

WriteLn ('k = ', k) ;

End.