Question

Перевести из питона в Паскаль



# 1 прога

a = 0

b = [10,15,12,13,7,8,11,14,17,20]

for i in b:

if i>10:

a +=1

else:

continue

print(a)


# 2 прога

a = 0

b = [10,15,12,13,7,8,11,14,17,20]

for i in b:

if i>10:

a +=1

else:

continue

print(a)

Answer 1

program raf105;

var  

 a: integer;

 b: array[1..10] of integer;

 i: integer;

begin

 b[1]:=10; b[2]:=15; b[3]:=12; b[4]:=13; b[5]:=7;

 b[6]:=8; b[7]:=11; b[8]:=14; b[9]:=17; b[10]:=20;

 for i:=1 to 10 do

   if b[i]>10

     then a+= 1

     else continue;

 writeln(a);

end.

PascalABC 3.4.2