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

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

 

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

алг

нач

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

    цел k, m, t

    Ball[1]:=12; Ball[2]:=25

    Ball[3]:=13; Ball[4]:=18

    Ball[5]:=35; Ball[6]:=55

    Ball[7]:=48; Ball[8]:=33

    Ball[9]:=64; Ball[10]:=45

    m := Ball[1]; t := 1

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

         если Ball[k] > m то

               m := Ball[k]

               t := k

         все

    кц

    вывод t

кон

Бей­сик

Пас­каль

DIM Ball(10) AS INTEGER

DIM k, m, t AS INTEGER

Ball(1)=12: Ball(2)=25

Ball(3)=13: Ball(4)=18

Ball(5)=35: Ball(6)=55

Ball(7)=48: Ball(8)=33

Ball(9)=64: Ball(10)=45

m = Ball(1): t = 1

FOR k = 1 TO 10

    IF Ball(k) > m THEN

         m = Ball(k)

         t = k

    END IF

NEXT k

PRINT t

END

var k, m, t: integer;

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

begin

 Ball[1]:=12; Ball[2]:=25;

 Ball[3]:=13; Ball[4]:=18;

 Ball[5]:=35; Ball[6]:=55;

 Ball[7]:=48; Ball[8]:=33;

 Ball[9]:=64; Ball[10]:=45;

 m := Ball[1]; t := 1;

 for k := 1 to 10 do

  if Ball[k] > m then

   begin

    m := Ball[k];

    t := k

   end;

 write(t);

end.