Ответы
Ответ дал:
0
program z;
var a: array [1..10] of integer;
N,i,k: integer;
begin
N := 10;
k=0;
for i:=1 to N do
readln(a[i]);
for i:=1 to N do
if a[i]>9 and a[i]<100
then k:=k+1;
writeln(k);
end.
var a: array [1..10] of integer;
N,i,k: integer;
begin
N := 10;
k=0;
for i:=1 to N do
readln(a[i]);
for i:=1 to N do
if a[i]>9 and a[i]<100
then k:=k+1;
writeln(k);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад