Нужна помощь в программе Pascal

Question

Нужна помощь в программе Pascal

Стас Буштюк Ученик (205), на голосовании 7 лет назад

нужна программа которая находит минимальный и максимальный элементы в одномерном массиве, все в принципе сделал, но после введения количества элементов черный экран уходит, и если снова его вызвать, то там уже выведен результат мин и макс, но надо чтобы черный экран не уходил, а чтобы сразу вывело результат. я подозреваю что это из-за этой части
for i:=1 to n do begin
write('a[',i,']=');
readln(a[i]);
end;
и после энда экран уходит

Answer 1

Const n=10;
var
a: array [1..n] of integer;
i, k: integer;
begin
for i:=1 to n do
begin
write('a[', i, '] = ');
readln(a[i]);
end;
for i:=1 to n do
if a[i]<0 then
begin
write(a[i], ' ');
k:=k+1;
end;
writeln;
writeln('Количество: ', k);
end.