Составить программу нахождения произведения положительных элементов массива

@Olka! · Регистрация: 15.12.2010

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

@Ev[G]eN · 19.02.2012, 18:42

Pascal

const
  n = 10;
var
  arr: array[1..n] of integer;
  Proizv: longint;
  i: byte;
begin
  randomize;
  Proizv:=1;
  writeln('Массив: ');
  for i:=1 to n do
  begin
    arr[i]:=random(50)-10;
    write(arr[i], ' ');
    if arr[i] > 0 then Proizv:=Proizv*arr[i];
  end;
  writeln;
  writeln('Произведение положительных элементов: ', Proizv);
end.

@Olka! 72 / 3 / 0 Регистрация: 15.12.2010 Сообщений: 137
		1
	Составить программу нахождения произведения положительных элементов массива 19.02.2012, 18:21. Показов 6098. Ответов 1 Метки нет (Все метки) Составить программу нахождения произведения положительных элементов массива 0

	19.02.2012, 18:42

Составить программу нахождения произведения положительных элементов массива

Решение