СДАМ ГИА: РЕШУ ОГЭ
Образовательный портал для подготовки к экзаменам
Информатика
информатика
сайты - меню - вход - новости




Задания
Версия для печати и копирования в MS Word
Задание 10 № 973

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

 

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

алг

нач

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

цел k, m

Dat[1] := 16

Dat[2] := 20

Dat[3] := 20

Dat[4] := 41

Dat[5] := 14

Dat[6] := 21

Dat[7] := 28

Dat[8] := 12

Dat[9] := 15

Dat[10] := 35

m := 0

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

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

m := Dat[k]

все

кц

вывод m

кон

DIM Dat(10) AS INTEGER

DIM k,m AS INTEGER

Dat(1) = 16: Dat(2) = 20

Dat(3) = 20: Dat(4) = 41

Dat(5) = 14: Dat(6) = 21

Dat(7) = 28: Dat(8) = 12

Dat(9) = 15:Dat(10) = 35

m = 0

FOR k = 1 TO 10

IF Dat(k)>m THEN

m = Dat(k)

ENDIF

NEXT k

PRINT m

Var k, m: integer;

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

Begin

Dat[1] := 16; Dat[2] := 20;

Dat[3] := 20; Dat[4] := 41;

Dat[5] := 14; Dat[6] := 21;

Dat[7] := 28; Dat[8] := 12;

Dat[9] := 15; Dat[10] := 35;

m := 0;

for k := 1 to 10 do

if Dat[k]>m then

begin

m := Dat[k]

end;

writeln(m);

End.

Пояснение.

Программа пред­на­зна­че­на для на­хож­де­ния мак­си­маль­но­го числа голосов, от­дан­ных за од­но­го исполнителя. Про­ана­ли­зи­ро­вав вход­ные данные, при­хо­дим к выводу, что ответ 41.

 

Ответ: 41.

Источник: Де­мон­стра­ци­он­ная вер­сия ОГЭ—2018 по информатике., Демонстрационная вер­сия ГИА—2015.