Напишіть програму для визначення мінімального і максимального числа масиву, елементами якого є наступні числа: 4, 5, 39, 7, 9, 12, 31, 9, 12, 34. Дані значення вводяться з клавіатури ДО ТЬ БУДЬ ЛАСКА ЦЕ ДУЖЕ

program z1;

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

i,max,min:integer;

begin

for i:=1 to 10 do

begin

write('Введите ',i:2,' элемент: ');

readln(a[i])

end;

writeln;

max:=a[1];

min:=a[1];

for i:=2 to 10 do

begin

if a[i]>max then max:=a[i];

if a[i]<min then min:=a[i]

end;

writeln ('Максимальное число: ',max);

writeln (' Минимальное число: ',min);

end.

Объяснение:

Ввод элементов массива с пояснениями

Присваиваем переменным для максимального и минимального числа значение 1-го элемента

Сравнение остальных элементов массива с переменными для максимального и минимального, при необходимости присваивание этим переменным новых значений

Вывод максимального и минимального числа