Информатика
Информатика, 06.10.2019 18:50, нур101

Var k, m, day: integer; dat: array[1..10] of integer; begin dat[1]: =7; dat[2]: = 1; dat[3]: = 3; dat[4]: = 3; dat[5]: = 2; dat[6]: = 2; dat[7]: = 5; dat[8]: = 5; dat[9]: = 7; dat[10]: = 1; day: = 1; m: = dat[1]; for k: = 2 to 10 do begin if dat[k] < m then begin m: = dat[k]; day: = k end end; write(day); end.

Ответ
Всего ответов: 3

Похожие вопросы

Предмет
Информатика, 01.03.2019 11:50, tatyanapalihova
Создать программу в паскале используя массив: найти сумму элементов, больших числа а.
Ответов: 3
Предмет
Информатика, 13.03.2019 11:00, логаpb
Информационное сообщение объемом 450 битов состоит из 150 символов каков информационный вес каждого символа этого сообщения?
Ответов: 3
Предмет
Информатика, 14.03.2019 12:02, нигу3
Решите программу для паскаля​
Ответов: 1
Предмет
Информатика, 18.03.2019 16:03, Sanchoys123
Плз как можно больше сделайте
Ответов: 2
Предмет
Информатика, 27.03.2019 23:50, elena260600
Внекотором каталоге хранится файл шпора.tхt. в этом каталоге создали подкаталог и переместили в него файл шпора.tхt. после этого полное имя файла стало d: .txt каково полное имя каталога, в котором хранился файл до перемещения? выберите один ответ: d: d: \ d: d: \документы
Ответов: 1
Предмет
Информатика, 30.03.2019 17:06, Colka123
На неправильный ответ заблокирую! нормальным 25 б! : 7,8.
Ответов: 1
Предмет
Информатика, 04.04.2019 12:05, nadechdavasilev
Запишите в нормальной форме число 0.2e+01
Ответов: 1
Предмет
Информатика, 13.04.2019 16:17, faets
13-жаттығу көмек қажет. ойыма ештеңе келетін емес.
Ответов: 1
Вопросов на сайте: 10003229