10. Циклический алгоритм обработки массива чисел

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

Демонстрационный вариант Основнóй госудáрственный экзáмен ОГЭ 2017 г. – задание №10

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

алг
нач
	целтаб 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
кон

12345678910111213141516171819202122

алгнач целтаб 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кон

Бейсик

Visual Basic

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

1234567891011121314

DIM Dat(10) AS INTEGERDIM k,m AS INTEGERDat(1) = 16: Dat(2) = 20Dat(3) = 20: Dat(4) = 41Dat(5) = 14: Dat(6) = 21Dat(7) = 28: Dat(8) = 12Dat(9) = 15:Dat(10) = 35m = 0FOR k = 1 TO 10IF Dat(k)>m THENm = Dat(k)ENDIFNEXT kPRINT m

Паскаль

Delphi/Pascal

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.

12345678910111213141516

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.

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

var Ves: array[1..14] of integer;
    i, n: integer;
begin
  Ves[1] := 25; Ves[2] := 21;
  Ves[3] := 23; Ves[4] := 28;
  Ves[5] := 30; Ves[6] := 25;
  Ves[7] := 31; Ves[8] := 28;
  Ves[9] := 25; Ves[10] := 28;
  Ves[11] := 30; Ves[12] := 27;
  Ves[13] := 26; Ves[14] := 24;
  n := Ves[1];
  for i := 1 to 14 do begin
    if Ves[i] &lt; n then
      n := Ves[i];
  end;
  writeln(n);
end.

1234567891011121314151617

var Ves: array[1..14] of integer; i, n: integer;begin Ves[1] := 25; Ves[2] := 21; Ves[3] := 23; Ves[4] := 28; Ves[5] := 30; Ves[6] := 25; Ves[7] := 31; Ves[8] := 28; Ves[9] := 25; Ves[10] := 28; Ves[11] := 30; Ves[12] := 27; Ves[13] := 26; Ves[14] := 24; n := Ves[1]; for i := 1 to 14 do begin if Ves[i] < n then n := Ves[i]; end; writeln(n);end.

var Ves: array[1..14] of integer;
    i, n: integer;
begin
  Ves[1] := 25; Ves[2] := 21;
  Ves[3] := 23; Ves[4] := 28;
  Ves[5] := 30; Ves[6] := 25;
  Ves[7] := 31; Ves[8] := 28;
  Ves[9] := 25; Ves[10] := 28;
  Ves[11] := 30; Ves[12] := 27;
  Ves[13] := 26; Ves[14] := 24;
  n := 0;
  for i := 1 to 14 do begin
    if Ves[i] &gt; 26 then
      n := n + 1
  end;
  writeln(n);
end.

1234567891011121314151617

var Ves: array[1..14] of integer; i, n: integer;begin Ves[1] := 25; Ves[2] := 21; Ves[3] := 23; Ves[4] := 28; Ves[5] := 30; Ves[6] := 25; Ves[7] := 31; Ves[8] := 28; Ves[9] := 25; Ves[10] := 28; Ves[11] := 30; Ves[12] := 27; Ves[13] := 26; Ves[14] := 24; n := 0; for i := 1 to 14 do begin if Ves[i] > 26 then n := n + 1 end; writeln(n);end.

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

Var k, m: integer;
    Dat: array[1..10] of integer;
Begin
  Dat[1] := 7; Dat[2] := 9;
  Dat[3] := 10; Dat[4] := 5;
  Dat[5] := 6; Dat[6] := 7;
  Dat[7] := 9; Dat[8] := 8;
  Dat[9] := 6; Dat[10] := 9;
  m := 0;
  for k := 1 to 10 do
    if Dat[k] &gt; 8 then begin
      m := m + Dat[k]
    end;
  writeln(m)
End.

123456789101112131415

Var k, m: integer; Dat: array[1..10] of integer;Begin Dat[1] := 7; Dat[2] := 9; Dat[3] := 10; Dat[4] := 5; Dat[5] := 6; Dat[6] := 7; Dat[7] := 9; Dat[8] := 8; Dat[9] := 6; Dat[10] := 9; m := 0; for k := 1 to 10 do if Dat[k] > 8 then begin m := m + Dat[k] end; writeln(m)End.

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

var k, day: integer;
    Dat: array[1..7] of integer;
begin
  Dat[1] := 14; Dat[2] := 10;
  Dat[3] := 0; Dat[4] := 15;
  Dat[5] := 0; Dat[6] := 15;
  Dat[7] := 10;
  day := 0;
  for k := 1 to 7 do
    if Dat[k] = 0 then
      day := k;
  write(day);
end.

12345678910111213

var k, day: integer; Dat: array[1..7] of integer;begin Dat[1] := 14; Dat[2] := 10; Dat[3] := 0; Dat[4] := 15; Dat[5] := 0; Dat[6] := 15; Dat[7] := 10; day := 0; for k := 1 to 7 do if Dat[k] = 0 then day := k; write(day);end.