Kemavteke
5 год назад
Нужно написать 11 задачу в паскале !!!
ОТВЕТЫ
Galya
Oct 24, 2020
var N:array[1..20] of byte;
i,k:longint;
begin
for i:=1 to 20 do read(N[i]);
for i:=1 to 20 do if N[i]<3000 then k:=k+1;
write(k);
end.
i,k:longint;
begin
for i:=1 to 20 do read(N[i]);
for i:=1 to 20 do if N[i]<3000 then k:=k+1;
write(k);
end.
454
Смежные вопросы:
