Составить листинг программы в паскале. создать файл f вещественных чисел. найти максимальную компоненту и дописать её в конец файла исходную максимальную компоненту уменьшить в два раза. далее сформировать файл h , записав в него каждую вторую компоненту файла f . файлы распечатать.
197
490
Ответы на вопрос:
//pascal abc.net v3.1 сборка 1172 const n=6; var f,h: text; i,maxi: integer; ar: array[1..n] of real; begin ar[6]: =real.minvalue; assign(f,'text.txt'); rewrite(f); for i: =1 to n-1 do begin readln(ar[i]); if ar[i]> ar[6] then begin ar[6]: =ar[i]; maxi: =i; end; end; ar[maxi]: =ar[maxi]/2; writeln('f: '); for i: =1 to n do begin write(f,ar[i],' '); write(ar[i],' '); end; close(f); writeln; i: =0; writeln('h: '); assign(h,'text1.txt'); rewrite(h); while i< n do begin i: =i+2; write(h,ar[i],' '); write(ar[i]: 4); end; close(h); end. пример ввода: 1 2 3 4 5 пример вывода: f: 1 2 3 4 2.5 5 h: 2 4 5
Межгалактическая версия знаменитой игры в Камень-Ножницы-Бумага, которая стала популярной благодаря сериалу «Теория Большого взрыва». Привали простые: Правила простые: ножницы режут бумагу, бумага покрывает камень, камень давит ящерицу, ящерица отравляет спока, спок ломает ножницы, ножницы обезглавливают ящерицу, ящерица съедает бумагу, бумага подставляет спока, спок испаряет камень, и, как всегда, камень разбивает ножницы. Запомнили? запускай
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
А00000а07.12.2020 04:29
-
тусикк10.06.2022 08:02
-
verinikamusia19.11.2020 21:38
-
srigermisha117.02.2023 13:29
-
lozhe4ka01.01.2022 01:59
-
Eva277204.08.2021 00:57
-
nastya051456713.03.2022 22:59
-
magnoliya22061929.02.2020 01:14
-
Popop11hs23.05.2021 19:57
-
Cheter2287105.09.2022 13:36
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.