В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] — ко­ли­че­ство уче­ни­ков в пер­вом клас­се, Dat[2] — во вто­ром и т. д.). Опре­де­ли­те, какое число будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей про­грам­мы. Текст про­грам­мы при­ведён на трёх язы­ках про­грам­ми­ро­ва­ния.

Ал­го­рит­ми­че­ский язык
алг
нач
цел­таб Dat[1:11]
цел к, m
Dat[1] : = 20
Dat[2] : = 25
Dat[3] : = 19
Dat[4] : = 25
Dat[5] : = 26
Dat[6] : = 22
Dat[7] : = 24
Dat[8] : = 28
Dat[9] : = 26
Dat[10] : = 21
Dat[11] : = 27
m : = 0
нц для к от 1 до 11
если Dat[к] > 22 то
m : = m+1
все
КЦ
вывод m
КОН

Бейсик
DIM Dat(11) AS INTEGER
DIM k,m AS INTEGER
Dat[1] = 20
Dat[2] = 25
Dat[3] = 19
Dat[4] = 25
Dat[5] = 26
Dat[6] = 22
Dat[7] = 24
Dat[8] = 28
Dat[9] = 26
Dat[10] = 21
Dat[11] = 27
m = 0
FOR k : = 1 TO 11
IF Dat(k) > 22 THEN
m = m+1
ENDIF
NEXT k
PRINT m

Паскаль
Var k, m: integer;
Dat: array[1...11] of integer;
Begin
Dat[1] : = 20;
Dat[2] : = 25;
Dat[3] : = 19;
Dat[4] : = 25;
Dat[5] : = 26;
Dat[6] : = 22;
Dat[7] : = 24;
Dat[8] : = 28;
Dat[9] : = 26;
Dat[10] : = 21;
Dat[11] : = 27;
m : = 0
for k : = 1 to 11 do
if Dat[k] > 22 then
begin
m : = m+1;
end;
writeln(m);
End.