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

Втаблице а хранятся данные о количестве учеников, опоздавших за неделю (a[1] - данные за понедельник, a[2] - за вторник и т.д). определите, что будет напечатано в результате выполнения следующего алгоритма: язык pascal (паскаль) var k,m,day: integer; a: of integer; begin a[1]: =3 a[2]: =1 a[3]: =4 a[4]: =2 a[5]: =4 a[6]: =2 day: =1; m: =a[1] for k: =2 to 6 do begin if a[k]> =m then begin m: =a[k]; day: =k; end; end; write(day); end. напишите с обьяснением, ; )

Показать ответ
Ответ:
ksskjskdjdkdk
ksskjskdjdkdk
07.07.2020 21:23
Во-первых, программа содержит ошибки, должно быть так:
var
  k, m, day: integer;
  A: array[1..6] of integer;

begin
  A[1] := 3;
  A[2] := 1;
  A[3] := 4;
  A[4] := 2;
  A[5] := 4;
  A[6] := 2;
  day := 1;
  m := A[1];
  for k := 2 to 6 do
  begin
    if A[k] >= m then
    begin
      m := A[k];
      day := k;
    end;
  end;
  write(day);
end.

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