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

Question

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

Answer 1

Uses crt;
Var a:array [1..100] of integer;
i,k:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(50);
write (a[i]:4);
k:=0;
end;
writeln;
for i:=1 to 10 do
if (a[i]<10) and (a[i]>3) then
begin
k:=k+1;
end;
writeln ('колво элементов',k);


end.