В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
lili2018
lili2018
25.06.2022 13:48 •  Информатика

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

Показать ответ
Ответ:
hooh232non666
hooh232non666
01.10.2020 06:21

Программа ищет номер семестра, в котором у студента была самая низкая оценка (если такая оценка встречается более одного раза, то берётся первый найденный номер).

В результате работы программы будет напечатано:

5

(в пятом семестре у студента впервые была четвёрка)

 

ответ:5

 

PS Кстати, в предпоследней строке две ошибки: нужно ставить точку с запятой после "end":

 

...

begin if Dat[k] < m then

begin m:=Dat[k]; term:=k

end; end;

write (term); end.

 

 

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота