Задан одномерный массив А (N) (N=0, то умножить все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.

Question

Информатика

Кондрат

5 июля, 01:16

Задан одномерный массив А (N) (N=0, то умножить все элементы этого массива на квадрат минимального элемента данного вектора, а если А[1]<0, то умножить все элементы на квадрат максимального элемента вектора. Полученный массив распечатать. Значение К вводится пользователем.

+4

Ответы (1)

Знаете ответ на вопрос?

Натуся · Answer 1

Var

A:array[1 ... 60] of integer;

k, i, MIN, ind, MAX, SUM:integer;

begin

SUM:=0;

readln (k) ;

randomize;

writeln ('Исходный массив:') ;

for i:=1 to 60 do

begin

A[i]:=random (15) - 5;

Writeln ('A[', i,']=', A[i]) ;

end;

MIN:=32600;

MAX:=-32600;

for i:=1 to 60 do / / Ищем минимальный элемент

begin

if a[i]
MIN:=a[i];

ind:=i;

end;

for i:=1 to 60 do / / Ищем максимальный элемент

if a[i]>MAX then

MAX:=a[i];

for i:=60 downto 60-k do / / Сумма последних k элементов

SUM:=SUM+a[i];

A[ind]:=SUM;

if A[1]>=0 then

for i:=1 to 60 do

begin

A[i]:=A[i]*sqr (MIN) ;

Writeln ('A[', i,']=', A[i]) ;

end

else

for i:=1 to 60 do

begin

A[i]:=A[i]*sqr (MAX) ;

Writeln ('A[', i,']=', A[i]) ;

end;

end.