Склавиатуры вводится 10 чисел,определить кол-во чисел - вопрос №1848394101530 от gabpara007 28.06.2021 12:24

Question

Информатика: Склавиатуры вводится 10 чисел,определить кол-во чисел в интервал от -15 до 30. в турбо паскале

gabpara007 · Answer

Var a:array [1..10] of integer;
i,k:integer;
begin
k:=0;
for i:=1 to 10 do
begin
write (i,'-oe chislo: ');
readln (a[i]);
if (a[i]>-15) and (a[i]<30) then inc(k);
end;
writeln ('Kol-vo: ',k);
end.