Задание

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

Алгоритмический язык

алг

нач

цел­таб Tok[1:10]

цел k, m

Tok[1] := 10; Tok[2] := 14

Tok[3] := 15; Tok[4] := 4

Tok[5] := 12; Tok[6] := 6

Tok[7] := 3; Tok[8] := 5

Tok[9] := 5; Tok[10] := 10

m := 0

нц для k от 1 до 10

если Tok[k] > 6 то

m := m + 2

все

кц

вывод m

кон

Бейсик

DIM Tok(10) AS INTEGER

DIM k,m AS INTEGER

Tok(1)= 10: Tok(2)= 14

Tok(3)= 15: Tok(4) = 4

Tok(5)= 12: Tok(6)= 6

Tok(7)= 3: Tok(8)= 5

Tok(9)= 5: Tok(10)= 10

m = 0

FOR k = 1 TO 10

IF Tok(k) > 6 THEN

m = m + 2

END IF

NEXT k

PRINT m

Паскаль

Var k, m: integer;

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

Begin

Tok[1] := 10; Tok[2] := 14;

Tok[3] := 15; Tok[4] := 4;

Tok[5] := 12; Tok[6] := 6;

Tok[7] := 3; Tok[8] := 5;

Tok[9] := 5; Tok[10] := 10;

m := 0;

For k := 1 to 10 Do

If Tok[k] > 6 Then

Begin

m := m + 2;

End;

Writeln(m);

End.