Question

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

Answer 1

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