Нати номера тех элементов массива, значение которых больше заданного числа C

Question

Информатика

Георгий

28 июля, 13:34

Нати номера тех элементов массива, значение которых больше заданного числа C

+1

Ответы (1)

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

Соня · Answer 1

Var

c, n, k, i:integer;

a:array[1 ... 1000] of integer;

begin

write ('Write size array: ') ; readln (n) ;

write ('Write c: ') ; readln (c) ;

k:=0;

for i:=1 to n do

begin

read (a[i]) ;

if a[i]>c

then inc (k) ;

end;

writeln (k) ;

readln;

readln

end.