BARBARA070704

17.10.2022 01:40

Информатика

Есть ответ 👍

Паскаль. в целочисленном массиве из 10 элементов найти предмаксимальное по значению число , вывести его позицию. например, 2 0 3 1 1 максимальное число 3, предмаксимальное 2 его позиция 1.

163

188

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

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

olyabat

Информатика

4,5(36 оценок)

ответ:

program predmax;

function getmax (aa: array of integer): integer;

var

i, imax: integer;

begin

imax : = low (aa);

for i : = low (aa) + 1 to high (aa) do

if aa [i] > aa [imax] then

imax : = i;

getmax : = imax + 1;

end;

var

a: array [1..10] of integer;

i, imax: integer;

begin

write ('массив: ');

for i : = low (a) to high (a) do

read (a [i]);

a [getmax (a)] : = - maxint;

imax : = getmax (a);

write ('предмаксимальный элемент a[', imax, '] = ', a [imax]);

readln;

end.

supervalad

Информатика

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

pascalabc.net

begin

var a : = readarrinteger('введите 10 чисел: ', 10);

var amax : = a.max;

var s : = a.where(p -> p < > amax).orderdescending;

if s.count > 0 then

begin

var apmax : = s.first;

var i : = a.findindex(p -> p = apmax);

println('предмаксимальный элемент', apmax, 'номер', i+1)

end

else

println('нет решения: все элементы в массиве одинаковы')

end.

Filindenis

Информатика

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

нет не возможно!

+/0##(

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

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

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

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

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

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

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

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

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

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