Question

Дан массив из 10 элементов. Найдите количество элементов, больших 3, но меньших 10.

Answer 1

Основа, думаю такая должна быть >.>
p:=1;
for i:=1 to 10 do
  if (a[i] > 3) and (a[i] < 10) then
  p:=p+1;

Answer 2

А можете, пожалуйста, всю программу написать? Полностью.

Answer 3

program prog;
const
N=10;
var
a : array [1..N] of integer;
i : integer;
begin
p:=1;
for i:=1 to 10 do
if (a[i] > 3) and (a[i] < 10) then
p:=p+1;
end.

Answer 4

Спасибо!!)

Answer 5

program prog;
const
N=10;
var
a : array [1..N] of integer;
i, p : integer;
begin
randomize;
for i:=1 to N do
a[i]:=random(100);

for i:=1 to N do
write(a[i]:4) ;
p:=0;
for i:=1 to 10 do
if (a[i] > 3) and (a[i] < 10) then
p:=p+1;
writeln;
write(p)
end.