Работа с массивами

[madishka]

Составить программу для решения задачи. Ввод массива организовать через генератор псевдослучайных действительных чисел (как положительных, так и отрицательных). Организовать наглядный вывод всего массива и результатов работы программы.
Задача:
Поменять местами максимальный и минимальный элементы таблицы, если сумма значений таблицы не больше произведения значений таблицы

[Mad_Cat]

s:=0;p:=1;
i1:=1;i2:=1;
for i:=1 to n do begin
a[i]:=random(100)-30;
s:=s+a[i];
p:=p*a[i];
write(a[i],'  ');
if a[i]>a[i1] then i1:=i;
if a[i]<a[i2] then i2:=i;
end;
writeln;
writeln('s:',s:6:1);writeln('p:',p:6:3);
if s<=p then begin
t:=a[i1];a[i1]:=a[i2];a[i2]:=t;end;
for i:=1 to n do
write(a[i],' ');

[madishka]

Сообщение от Mad_Cat

s:=0;p:=1;
i1:=1;i2:=1;
for i:=1 to n do begin
a[i]:=random(100)-30;
s:=s+a[i];
p:=p*a[i];
write(a[i],'  ');
if a[i]>a[i1] then i1:=i;
if a[i]<a[i2] then i2:=i;
end;
writeln;
writeln('s:',s:6:1);writeln('p:',p:6:3);
if s<=p then begin
t:=a[i1];a[i1]:=a[i2];a[i2]:=t;end;
for i:=1 to n do
write(a[i],' ');

Можешь написать значение каждой строки?)