2. дан массив действительных чисел b[n]. требуется умножить все его элементы на квадрат минимального элемента, если ak0 и на квадрат максимального элемента, если ak< 0 (1kn). пример массив: 2 3 5 -4 -2 4 5 (5 – максимальный элемент, -2 – минимальный) результат: 8 12 20 -100 -50 16 20 протестировать программу на выше примере и на двух других произвольных тестах.
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