Прошу решить на паскале полную ! массив из 15 элементов заполнен случайными числами из диапазона (-20; 20). найти максимальный элемент и его номер, вывести на экран элементы массива с нечетными номерами

281

469

Посмотреть ответы 2

Ответы на вопрос:

nastya30071

Информатика

4,8(59 оценок)

Const n=10; var a: array[1..n] of integer; max,imax,i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(39)-19; write(a[i],' '); end; writeln; max: =a[1]; imax: =1; for i: =2 to n do if a[i]> max then begin max: =a[i]; imax: =i; end; writeln('max = ',max,' imax = ',imax); writeln('элементы массива с нечетными номерами: '); for i: =1 to n do if i mod 2 = 1 then write(a[i],' '); writeln; end. пример: -5 18 -16 -7 19 -15 2 8 -15 -6 max = 19 imax = 5 элементы массива с нечетными номерами: -5 -16 19 2 -15

thebrofee

Информатика

4,7(71 оценок)

1) var x: real; begin writeln ('введите число'); readln (x); if x> 0 then writeln ('число ', x, ' положительное') else if x< 0 then writeln ('число ', x, ' отрицательное') else if x=0 then writeln ('число ', x, ' не является ни положительным, ни отрицательным'); end. 2. var x, y: real; begin writeln ('введите два числа'); readln (x,y); if x> y then writeln (x) else if x< y then writeln (y) else if x=y then writeln ('числа равны'); end. 3. var x, sum, pr: real; i: integer; begin sum: =0; pr: =1; for i: =1 to 5 do begin write ('введите число: '); readln (x); sum: =sum+x; pr: =pr*x; end; writeln ('сумма чисел = ', sum); writeln ('произведение чисел = ', pr); if sum> pr then writeln (sum) else if sum< pr then writeln (pr) else if sum=pr then writeln ('сумма и произведение равны'); end.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.