Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
агаг1
10.03.2022 00:31 •
Информатика
Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера. pascal abc делайте как можно проще
Показать ответ
Ответ:
m8756m
09.08.2020 17:21
Program znanija;
const n = 5;
var
a:array[1..n] of integer;
premax, premaxi, maxi, max, i, b:integer;
begin
max := -1000;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if b > max then
begin
premax := max;
premaxi := maxi;
max := b;
maxi := i;
end;
end;
writeln('Максимальный элемент №1: ', max, ',его номер ', maxi);
writeln('Максимальный элемент №2: ', premax, ',его номер ', premaxi);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Дианчик777
29.01.2021 15:10
В таблице представлено расстояние между населенными пунктами. Определи кратчайшее расстояние между пунктами A и E....
gfff2
28.01.2023 06:11
Даны три числа. выведите на экран их значения и определите большее и меньшее из них. в формате vbs...
vabyn
28.01.2023 06:11
Вычислить сумму всех четных положительных чисел ряд 2,4,–3,0,5,1,6 в программе basic. !...
Vova2005002
28.01.2023 06:11
Для кодирования красного цвета служит код 0100. сколько цветов содержит используемая палитра? ответ обоснуйте....
ПолинаПашкова14
07.01.2022 10:26
СОСТАВИТЬ БЛОК СХЕМУ И С++ .Клиент оформил вклад на m тысяч рублей в банке под k% годовых. Через сколько лет сумма вклада превысит s тысяч рублей, если за это время клиент не будет...
Макс228336
17.12.2020 20:41
Сочинение рассуждение на тему «глагол важная часть речи»...
Dzhemre69
02.07.2020 18:10
ABCD - прямокутник, AB = 4 см, BC = 3 см, AC = 5. Знайти: BD, CD, AD...
Tanya20042017
20.12.2020 06:31
В треугольник NKL вписана окружность с центром О;A;B;C - точки касания окружности к сторонам KL,LN, NK соответственно. Докажите что AK+NB=CK+NC...
Irrishka2005
20.12.2020 06:31
Выполните упражнение Exercise 8. Translate into English. мало окон — несколько машин — немного денег — несколько минут — мало света — несколько кошек — мало сыра — несколько дней —...
markpleshakov9oxahlf
14.11.2020 20:59
На рисунке изображен график движения туристов. Рассмотрев график, ответьте на во а) на какое расстояние от турбазы удалились туристы?сколько времени шли туристы от первого привала...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
const n = 5;
var
a:array[1..n] of integer;
premax, premaxi, maxi, max, i, b:integer;
begin
max := -1000;
write('Введите массив из ', n, ' элементов:');
for i := 1 to n do
begin
read(b);
a[i] := b;
if b > max then
begin
premax := max;
premaxi := maxi;
max := b;
maxi := i;
end;
end;
writeln('Максимальный элемент №1: ', max, ',его номер ', maxi);
writeln('Максимальный элемент №2: ', premax, ',его номер ', premaxi);
end.