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




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

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


 

 


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

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