Program p1; Uses crt; Var A: array [1..10] of integer; i,k: integer; Begin clrscr; Writeln ('Введите элементы массива'); for i:=1 to 10 do read (a[i]); k:=0; for i:=1 to 10 do begin if (a[i]>10) and (a[i]<30) then k:=k+1; end; writeln ('Количество чисел в диапазоне (10;30) =',k); Readln; readkey; end.
Uses crt;
Var A: array [1..10] of integer;
i,k: integer;
Begin clrscr;
Writeln ('Введите элементы массива');
for i:=1 to 10 do
read (a[i]);
k:=0;
for i:=1 to 10 do
begin
if (a[i]>10) and (a[i]<30) then
k:=k+1;
end;
writeln ('Количество чисел в диапазоне (10;30) =',k);
Readln;
readkey;
end.