Втаблице dat хранятся оценки (по шкале) студента по программированию за с начала учебы семестров (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; term: =1; m: =dat[1]; for k: =2 to 8 do begin if dat[k] < m then begin m: =dat[k]; term: =k end end write (term); end.
Программа ищет номер семестра, в котором у студента была самая низкая оценка (если такая оценка встречается более одного раза, то берётся первый найденный номер).
В результате работы программы будет напечатано:
5
(в пятом семестре у студента впервые была четвёрка)
ответ:5
PS Кстати, в предпоследней строке две ошибки: нужно ставить точку с запятой после "end":
...
begin if Dat[k] < m then
begin m:=Dat[k]; term:=k
end; end;
write (term); end.