Как вывести номер максимального элемента массива (паскаль) я написала программу, чтобы найти максимальный элемент массива, но не знаю, как вывести его индекс вот программа по нахождению максимального элемента массива program ma; var i,max: integer; a: array [1..10] of integer; begin writeln ('введите массив из 10 элементов'); read (a[1]); max: =a[1]; for i: = 2 to 10 do begin read(a[1]); if a[1] > max then max: =a[1]; end; writeln (max); end.
217
267
Ответы на вопрос:
{$mode delphi} var a,b,c,d,e: integer; begin; d: =-999; read(a); for b: =1 to a do begin read(c); if c> d then begin d: =c; e: =b; end; end; writeln(e); end.
var a: integer;
begin
readln(a);
if (a >= 1) and (a <= 2)or (a = 12) then
writeln('Зима')
else
if (a >= 3) and (a <= 5) then
writeln('Весна')
else
if (a >=6) and ( a <= 8) then
writeln('Лето')
else
if (a >=9) and (a <= 11) then
writeln('Осень')
else
writeln('Ошибка - такого месяца не существует');
end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
kseniatrof10.02.2021 09:43
-
OmegaLULx02.04.2020 10:32
-
простоникр28.11.2021 15:34
-
Ольга2505200014.06.2022 20:23
-
алина379804.08.2020 08:44
-
metin200513.06.2020 17:01
-
Arestan15.01.2020 21:03
-
Yaritas30.03.2022 09:46
-
Sanyaaa1223.10.2020 09:55
-
Dora202020.05.2020 01:25
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.