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

Протестировать программу на приведённом выше примере и на двух других произвольных тестах.

Question

Информатика

Любомир

24 февраля, 08:32

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

Протестировать программу на приведённом выше примере и на двух других произвольных тестах.

+1

Ответы (1)

Знаете ответ?

Кося · 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]
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