Помогите срочно, плиз
Дан массив из 10 элементов найдите количество элементов больших 3, но меньших 10
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад