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

poshova002 poshova002    2   12.07.2019 02:00    1

Ответы
arinayakovenkop09u55 arinayakovenkop09u55  03.10.2020 01:37
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика