Задайте массив из 10 элементов с датчика случайных чисел. все положительные элементы замените максимальным. выведите на экран исходный и измененный массивы.
280
281
Ответы на вопрос:
Программа : uses crt; const n=10; type vec=array [1..n] of integer ; var i, max: integer; a: vec ; begin clrscr; randomize; writeln (' old massiv: '); for i: =1 to n do begin a[i]: =-5+random(15); write (a[i]: 4); end; writeln; max: =a[1]; for i: =2 to n do if a[i]> max then max: =a[i]; writeln; writeln(' max = ', max); writeln (' new massiv: '); for i: =1 to n do begin if a[i] > 0 then a[i]: =max; write (a[i]: 4); end; writeln; readln; end.
program n1cel; vara,c: integer; begina: =1; c: =1; while с mod 2009< > 0 dobegina: =a+1; c: =c+11; end; writeln ('через ', a, ' секунд'); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
supermichail2905.09.2022 21:04
-
Farpli27.08.2021 05:29
-
SleaM4ik23.09.2022 18:38
-
matveibr24.12.2021 14:46
-
Мертвый0Анархист17.08.2021 23:13
-
ddfdffdf26.10.2020 00:47
-
Litsonchik01.09.2020 22:34
-
kristiniiiiiii31.05.2020 19:32
-
emphasisone02.04.2022 10:22
-
Vlad2005Mr03.04.2021 21:40
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.