Нужно ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера?

Yuki12300 21 июл. 2020 г., 09:38:12

Var

a : array[1.

5] of integer ;

i, Max, c, n, f : integer ;

procedure ho ;

begin if a[i]> ; Max then begin Max : = a[i] ; c : = i ; end ;

end ;

begin for i : = 1 to 5 do begin a[i] : = random(15) + 2 ; write(a[i], ' ') ; end ; Max : = a[1] ; c : = 1 ; for i : = 1 to 5 do ho ; writeln ; writeln('Максимум : ', max) ; f : = c ; if f = 1 then begin max : = a[2] ; for i : = 2 to 5 do ho ; writeln('Вторичный максимум : ', max) ; exit ; end ; if f< ; 5 then begin Max : = a[f + 1] ; for i : = f + 1 to 5 do ho ; n : = max ; end ; if f> ; 1 then begin Max : = a[1] ; c : = f ; for i : = 1 to c - 1 do ho ; if max> ; n then writeln('Вторичный максимумì : ', max) ; if max< ; n then writeln('Вторичный максимум : ', n) ; end ; end.

Zhantonina 13 янв. 2020 г., 02:03:15 | 5 - 9 классы

(Pascal) Задача : Ввести массив из 5 элементов с клавиатуры?

(Pascal) Задача : Ввести массив из 5 элементов с клавиатуры.

Вывести элементы на экран и найти их сумму.

РЕШИТЕ ПОЗЯЗЯ!

Madmadi98 23 нояб. 2020 г., 00:59:31 | 5 - 9 классы

СРОЧНО?

СРОЧНО!

Ввести с клавиатуры массив из 5 элементов, найти в нем минимальный элемент и его номер.

Gghkkcd 14 нояб. 2020 г., 15:25:47 | 5 - 9 классы

Ввести с клавиатуры массив из 5 элементов найти максимальный из них?

Ввести с клавиатуры массив из 5 элементов найти максимальный из них.

Анастаси123456789000 2 февр. 2020 г., 20:17:29 | 5 - 9 классы

Ввести с клавиатуры массив из 5 элементов найти максимальный и минимальный из них?

Ввести с клавиатуры массив из 5 элементов найти максимальный и минимальный из них.

Artembabynin20 3 мая 2020 г., 13:07:17 | 10 - 11 классы

Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива?

Ввести с клавиатуры массив из 5 элементов, найти среднее арифметическое всех элементов массива.

Rnastichenko 13 окт. 2020 г., 07:24:06 | 10 - 11 классы

Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера?

Ввести с клавиатуры массив из 5 элементов, найти в нем максимальный и минимальный элементы и их номера.

Maneckoba0sha 21 апр. 2020 г., 16:28:40 | 10 - 11 классы

1)ввести с клавиатуры массив из n элементов вывести на экран элементы меньшие среднего арифметического всех элементов массива 2) ввести с клавиатуры массив из n элементов вывести на экран максимальный?

1)ввести с клавиатуры массив из n элементов вывести на экран элементы меньшие среднего арифметического всех элементов массива 2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент.

Лаймер 2 июл. 2020 г., 13:07:55 | 5 - 9 классы

Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера Пример : Исходный массив : 4 - 5 10 - 10 5 максимальные A[3] = 10, A[5] = 5?

Ввести с клавиатуры массив из 5 элементов, найти в нем два максимальных элемента и их номера Пример : Исходный массив : 4 - 5 10 - 10 5 максимальные A[3] = 10, A[5] = 5.

SpiDerMan77 3 февр. 2020 г., 03:27:00 | 5 - 9 классы

Ввести с клавиатуры массив из пяти элементов, найти в нём минимальный элемент его номер?

Ввести с клавиатуры массив из пяти элементов, найти в нём минимальный элемент его номер.

Максимка28 8 нояб. 2020 г., 21:25:34 | 5 - 9 классы

Ввести с клавиатуры массив из 5 элементов , найти среднее арифметическое всех элементов масива?

Ввести с клавиатуры массив из 5 элементов , найти среднее арифметическое всех элементов масива.

ABC Pascal.

Через for, , repead.