Решение 6 задания ОГЭ по информатике про обработку массивов 6.13

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

Паскаль:

var k, m, term: integer;
Dat: array[1..8] of integer;
Begin
Dat[1] := 7; Dat[2] := 7;
Dat[3] := 6; Dat[4] := 8;
Dat[5] := 4; Dat[6] := 5;
Dat[7] := 4; Dat[8] := 7;
m := Dat[1];
term := 1;
for k := 2 to 8 do
  if Dat[k] < m then
  begin
    m := Dat[k];
    term := k;
  end;
writeln(term);
End.

Бейсик:

DIM Dat(8) AS INTEGER
DIM k, m, term AS
INTEGER
Dat(1) = 7: Dat(2) = 7
Dat(3) = 6: Dat(4) = 8
Dat(5) = 4: Dat(6) = 5
Dat(7) = 4: Dat(8) = 7
m = Dat(1); term = 1
FOR k = 2 TO 8
  IF Dat(k) < m THEN
    m = Dat(k)
    term = k
  ENDIF
NEXT k
PRINT term

Python:

Dat = [7, 7, 6, 8, 4, 5, 4, 7]
m = Dat[0]
term = 1
for k in range(1, 8):
  if Dat[k] < m:
    m = Dat[k]
    term = k + 1
print (term)

  
C++:

#include <iostream>
using namespace std;
int main() {
int Dat[8] = {7, 7, 6, 8, 4, 5, 4, 7};
int m = Dat[0];
int term = 1
for (int k = 1; k < 8; k++)
  if (Dat[k] < m) {
    m = Dat[k];
    term = k + 1;
  }
cout << term;
return 0;
}

✍ Решение:
 

    Ответ: 5