Дан целочисленный массив, заданный датчиком случайных чисел в интервале от -100 до 500....

Question

Дан целочисленный массив, заданный датчиком случайных чисел в интервале от -100 до 500. Требуется умножить отрицательные значения элементов этогомассива на 10.(Язык Pascal)

Answer 1

Ответ:

const M = 10;

var A: array [1..M] of integer;

var i:integer;

begin

randomize();

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

For i:= 1 to M do

 begin

 A[i]:=random(601)-100;

 write(A[i],' ');

 if (A[i]

 end;

writeln;

writeln('Результат: ');

For i:= 1 to M do write(A[i],' ');

end.