Помогите срочно, плиз Дан массив из 10 элементов найдите количество элементов больших 3, но меньших 10
Помогите срочно, плиз
Дан массив из 10 элементов найдите количество элементов больших 3, но меньших 10
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы