найти произведение отрицательных элементов и умножить положительные элементы на 20

@Evil_magic · Регистрация: 11.12.2021

Author24 — интернет-сервис помощи студентам

В одномерном массиве A из n элементов найти произведение
отрицательных элементов и умножить положительные элементы
на 20.напишите пожалуйста код.

@XzzzX · 11.12.2021, 15:59

Pascal

## 
var a:= arrRandom(readlninteger('n ='), -10, 10);
var prod:= 1;
 
for var i:= 0 to a.High do
  begin
    if a[i] < 0 then
      prod*= a[i]
    else if a[i] > 0 then
      a[i]*= 20;
  end;

@Evil_magic 0 / 0 / 0 Регистрация: 11.12.2021 Сообщений: 15
		1
	найти произведение отрицательных элементов и умножить положительные элементы на 20 11.12.2021, 15:08. Показов 619. Ответов 1 Метки pascal abc net (Все метки) В одномерном массиве A из n элементов найти произведение отрицательных элементов и умножить положительные элементы на 20.напишите пожалуйста код. 0

	11.12.2021, 15:59

найти произведение отрицательных элементов и умножить положительные элементы на 20

Решение