Задан массив из 8 вещественных чисел. Посчитать колличество эллементов массива, меньших 10 ю

Question

Информатика

Макар

25 августа, 01:59

Задан массив из 8 вещественных чисел. Посчитать колличество эллементов массива, меньших 10 ю

+2

Ответы (1)

Знаете ответ?

Устинья · Answer 1

Var A:array[1 ... 10] of Real;

i, k:integer;

begin

For i:=1 to 8 do

Readln (A[i]) ;

For i:=1 to 8 do

If A[i]<10 then

k:=k+1;

Writeln (k) ;

end.