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

PDF Button

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

Бейсик

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.

В таблице 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] < n then
      n := Ves[i];
  end;
  writeln(n);
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 := 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] > 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.

 

 

 

Добавить комментарий

➤