информатика
сайты - меню - вход - новости




Каталог заданий
Назад в каталог
Вернуться к списку прототипов этой категории
Версия для печати и копирования в MS Word
1
Задание 0 № 4712

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

 

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

    алг

    нач

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

        цел k, m

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

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

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

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

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

        m := Ball[1]

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

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

                  m := Ball[k]

             все

        кц

        вывод m

кон

Бейсик

Паскаль

DIM Ball(10) AS INTEGER

DIM k, m AS INTEGER

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

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

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

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

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

m = Ball(1)

FOR k = 1 TO 10

 IF Ball(k) > m THEN

  m = Ball(k)

 END IF

NEXT k

PRINT m

END

var k, m, t: integer;

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

begin

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

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

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

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

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

 m := Ball[1];

 for k := 1 to 10 do

  if Ball[k] > m then

   m := Ball[k];

 write(m);

end.


 

 


Аналоги к заданию № 4516: 4846 4904 5639 Все

Прототип задания ·