Склавиатуры вводится 10 чисел,определить кол-во - вопрос №1015301847717 от barmeb11 12.03.2021 04:32

Question

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

barmeb11 · 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.