Ответы
Ответ дал:
0
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.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад