Версия для копирования в MS Word
PDF-версии: горизонтальная · вертикальная · крупный шрифт · с большим полем
РЕШУ ОГЭ — информатика
Задания
i

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

 

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

алг

нач

  цел­таб A[1:6]

  цел k, m, day

  A[1] := 5; A[2] := 4

  A[3] := 2; A[4] := 2

  A[5] := 4; A[6] := 3

  day := 1; m := A[1]

  нц для k от 2 до 6

    если A[k] <= m то

     m := A[k]

     day := k

    все

  кц

  вывод day

кон

Бей­сик

Пас­каль

DIM A(6) AS INTEGER

A(1) = 5: A(2) = 4

A(3) = 2: A(4) = 2

A(5) = 4: A(6) = 3

day = 1: m = A(1)

FOR k = 2 TO 6

 IF A(k) <= m THEN

  m = A(k)

  day = k

 END IF

NEXT k

PRINT day

END

var k, m, day: integer;

A: array[1..6] of integer;

begin

  A[1] := 5; A[2] := 4;

  A[3] := 2; A[4] := 2;

  A[5] := 4; A[6] := 3;

  day := 1; m := A[1];

  for k := 2 to 6 do

    begin

      if A[k] <= m then

        begin

          m := A[k];

          day := k

        end;

  write(day);

end.