В таб­ли­це Dat хра­нят­ся дан­ные о ко­ли­че­стве уче­ни­ков в клас­сах (Dat[1] —...

В таб­ли­це 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.

Ответ: 7 
Нy и мне нyжно написать 20 символов