Информатика
Информатика, 06.10.2019 19:01, Pro2222

Var k, m, day: integer; dat: array[1..10] of integer; begin dat[1]: =7; dat[2]: = 2; dat[3]: = 3; dat[4]: = 3; dat[5]: = 4; dat[6]: = 4; dat[7]: = 5; dat[8]: = 5; dat[9]: = 7; dat[10]: = 6; 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.

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

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

Предмет
Информатика, 09.03.2019 16:40, saha1710
Определите значение целочисленных переменных а и b после выполнения фрагмента программы: а: = (20*100) + (3*7); b: = (а div1000) + (a mod 100); а: = (а – b) mod 10;
Ответов: 4
Предмет
Информатика, 13.03.2019 02:20, abacaevar
Составьте программу , которая сообщает , можно ли разделить поровну между двумя друзьями n конфет,выводя на экран соответствующее сообщение "да " либо "нет"! до !
Ответов: 3
Предмет
Информатика, 13.03.2019 16:30, bohdankacojs
Сочинение "мой бизнес-план".представить себя предпринимателем, придумать продукт/фирму,назвать рассказать про прибыльность сочинение "мой бизнес-план".представить себя предпринимателем, придумать продукт/фирму,назвать рассказать про прибыльность
Ответов: 1
Предмет
Информатика, 14.03.2019 07:04, mikhaillukashc
Документ объемом 10 мбайт можно передать с одного компьютера на другой двумя а) сжать архиватором, передать архив по каналу связи, распаковать б) передать по каналу связи без использования архиватора. какой быстрее и насколько, если – средняя скорость передачи данных по каналу связи составляет 2 в степени 20 бит в секунду, – объем сжатого архиватором документа равен 10% от исходного, – время, требуемое на сжатие документа – 20 секунд, на распаковку – 2 секунды? в ответе напишите букву а, если а быстрее или б, если быстрее б. сразу после буквы напишите количество секунд, насколько один быстрее другого. так, например, если б быстрее а на 23 секунды, в ответе нужно написать б23. слов «секунд», «сек.», «с.» к ответу добавлять не нужно.
Ответов: 1
Предмет
Информатика, 14.03.2019 20:49, ninbondar100164
Паскаль 1.составить программу которая проверяет четное ли это число 2.составить программу которая уравнивает два числа a и b 3.составить программу которая проверяет трехзначное ли это число
Ответов: 1
Предмет
Информатика, 16.03.2019 19:30, vustiya69
Придумайте и запишите сиквейны к словам компьютер,общение,модель)
Ответов: 3
Предмет
Информатика, 17.03.2019 17:47, ропчан
Внести в программу изменения так,чтобы числа выводились в обратном порядке -от большего к 2.
Ответов: 2
Предмет
Информатика, 18.03.2019 23:25, ролимов
Среди уче­ни­ков 5−11 клас­сов проводили со­цио­ло­ги­че­ский опрос. ре­зуль­та­ты занесли в элек­трон­ную таблицу. ниже при­ве­де­ны первые пять строк таблицы: a b c d e 1 фамилия имя класс любимый предмет оценка за лю­би­мый предмет 2 александров артемий 5 информатика 4 3 александрова александра 6 4 4 анай ангыр 10 4 5 ананкина полина 8 язык 4 6 андреев ярослав 7 информатика 5 каждая стро­ка таблицы со­дер­жит запись об одном ученике. в столб­це а за­пи­са­на фамилия, в столб­це в - имя, в столб­це с — класс, в столб­це d — любимый предмет, в столб­це е — оценка за лю­би­мый предмет. выполните . откройте файл с дан­ной электронной таб­ли­цей (расположение файла вам со­об­щат организаторы экзамена). на ос­но­ва­нии данных, со­дер­жа­щих­ся в этой таблице, от­веть­те на два вопроса. 1. сколько уче­ни­ков любят информатику? ответ на этот во­прос запишите в ячей­ку h2 таблицы. 2. какой про­цент учеников 8 клас­са имеют оцен­ку за лю­би­мый предмет 4 или 5? ответ на этот во­прос с точ­но­стью не менее 2 зна­ков после за­пя­той запишите в ячей­ку h3 таблицы.
Ответов: 1
Вопросов на сайте: 10003229