Программирование в языке паскаль не с++. 1. написать программу, которая считывает с клавиатуры массив из 10 элементов и выводит минимальный элемент массива. 2. написать программу, которая считывает с клавиатуры массив из 10 элементов и выводит максимальный элемент массива и его индекс. 3. написать программу, которая считывает с клавиатуры массив из n элементов (n< 1000) и выводит максимальный и минимальный элементы массива и их среднее значение. нужно минимум две . заранее )
var a: array[1..10] of integer; i,min: integer;
begin
for i:= 1 to 10 do
begin
writeln( 'a[',i,']=');
readln (a[i]);
end;
min:= 32687;
for i:= 1 to 10 do
if a[i]< min then min:= a[i];
writeln('min=',min);
end.