так не я прошу, а требует преподаватель. но сколько я понаходила примеров и подобных задач я недолжна вводить ячейки, а только задавать элементы. вообщем моя задача зависла. вот какой решение задачи вижу я
var a, array [1..20] of integer;
i,n,max,min of integer;
begin
writeln ('ввод кол-во эл массива');
readln (n);
writeln ('ввод эл массива');
for i:=1 to n do
readln (a [i]);
max:= a [1]
min:= a [1]
for i:=1 to n do
if a[i]> min then
min:=a[i];
ДАЛЬШЕ Я ЗАПУТАЛАСЬ!!!!!!!!!