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

Question

Информатика

Алёна

25 ноября, 18:16

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

+1

Ответы (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.