2. Дан массив действительных чисел B[N]. Требуется умножить все его элементы на квадрат минимального элемента, если ak0 и на квадрат максимального элемента, если ak меньше 0 (1kN). Пример Массив: 2 3 5 -4 -2 4 5 (5 – максим...
2. Дан массив действительных чисел B[N]. Требуется умножить все его элементы на квадрат минимального элемента, если ak0 и на квадрат максимального элемента, если ak<0 (1kN).
Пример
Массив: 2 3 5 -4 -2 4 5 (5 – максимальный элемент, -2 – минимальный)
Результат: 8 12 20 -100 -50 16 20
Протестировать программу на приведённом выше примере и на двух других произвольных тестах.
Гость
Ответ(ы) на вопрос:
Гость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]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
Не нашли ответ?
Похожие вопросы