Помогите решить, буду очень признателен.1. Дан массив, найти произведение отрицательных

Помогите решить, буду очень признателен.

1. Дан массив, отыскать произведение отрицательных элементов массива.
2. Дан массив, поменять все отрицательные элементы массива их модулями

Задать свой вопрос
Аделина Формутороова
паскаль? Размер массива , как вводятся элементы, с клавиатуры либо нечаянно ?
Ева
Да паскаль. А вот 2-ое не сообразил
Маргарита Левшонкова
Сами элементы массива задаются вручную, либо же автозаполнить его ?
1 ответ

Var mass:array[1..20] of integer;

    P,i:integer;

begin

p:=1;

'Наполнение массива

randomize;

for i:=1 to 20 do begin

mass[i]:=random(30)-15;

write(mass[i],' ');

if mass[i]lt;0 then p:=p*mass[i]

end;

writeln('Творенье отрицательных чисел = ', p);

writeln('Новый массив');

for i:=1 to 20 do begin

 if mass[i]lt;0 then mass[i]:=абс(mass[i]);

 write(mass[i],' ');

end;

readln;

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт