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-го элемента
Сравнение остальных элементов массива с переменными для максимального и минимального, при необходимости присваивание этим переменным новых значений
Вывод максимального и минимального числа
Первый пункт
Объяснение: