Question

2. Дан массив действительных чисел B[N]. Требуется умножить все его элементы на квадрат минимального элемента, если ak0 и на квадрат максимального элемента, если ak<0 (1kN). Пример Массив: 2 3 5 -4 -2 4 5 (5 – максимальный элемент, -2 – минимальный) Результат: 8 12 20 -100 -50 16 20 Протестировать программу на приведённом выше примере и на двух других произвольных тестах.

Answer 1

Const n=10;
var a:array[1..n] of real;
max,min:real; i:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do begin
 a[i]:=random(21)-10;
 write(a[i],' ');
 end;
writeln;
max:=a[1]; min:=a[1];
for i:=2 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('max = ',max,'  min = ',min);
max:=max*max; min:=min*min;
writeln('Измененный массив:');
for i:=1 to n do
 if a[i]>0 then a[i]:=a[i]*min else a[i]:=a[i]*max;
for i:=1 to n do write(a[i]:5);
writeln; 
end.

Пример:
Исходный массив:
5 6 7 0 -6 5 -2 10 7 -2 
max = 10  min = -6
Измененный массив:
  180  216  252    0 -600  180 -200  360  252 -200