Склавиатуры вводится 10 чисел,определить кол-во - вопрос №1848394101530 от ванёк10062005 21.02.2023 09:48

Question

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

ванёк10062005 · 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.