Одномерные массивы

[Valik93]

Пусть даны вещественные числа а1, а2, ..., аn.Требуется умножить все элементы последовательности а1, а2, ..., аn на квадрат ее наименьшего элемента, если аi <= 0, и на квадрат ее наибольшего элемента, если аi < 0.

[009]

если массив a[1..n] уже есть, то можно так:

min:=a[1]; max:=a[1];
for i:=2 to n do begin
if a[i]<min then min:=a[i];
if a[i]>max then max:=a[i];
end;
min:=min*min;
max:=max*max;
for i:=1 to n do
if a[i]<=0 then a[i]:=min else a[i]:=max;

[Serge_Bliznykov]

009, есть маленький косячок....
Нужно не заменить элементы на квадрать минимума, максимума, а УМНОЖИТЬ элемент на квадрат...

for i:=1 to n do
  if a[i]<=0 then a[i]:= a[i]*min else a[i]:=a[i]*max;

Valik93, а Вы внимательней перепечатывайте условия задачи. У Вас же явно опечатка:

если аi <= 0, и на квадрат ее наибольшего элемента, если аi < 0.

Обратите внимание, ваши условия пересекаются и не охватывают положительные числа!

[Valik93]

да не правильно, ai>=0 ai<0

[Serge_Bliznykov]

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

да не правильно, ai>=0 ai<0

ну, тогда 009 немножко не угадал с условием, исправьте условие в коде на нужное...