найти произведение положительных елементов масива

@олег ва · Регистрация: 03.12.2012

найти произведение положительных елементов масива v(15) и количество всех отрицательных елементов
сделайте пожалуйста

@icecreeam · 04.12.2012, 18:54

Pascal

program HelloWorld;
var
  a: array [1..15] of integer;
  i, multip, count : integer;
begin
  multip := 1;
  count := 0;
  Randomize;
  for i:= 1 to 15 do
   begin
     a[i]:=random(10)-5;
     Write(a[i], '  ');
    if a[i]>0 then
      multip := multip * a[i]
        else
         if a[i]<0 then
          count:= count + 1;
   end;
  Writeln;
  Writeln('multiplication all positive ', multip);
  Writeln('Count of negative ', count);
  Readln;
end.

@олег ва 0 / 0 / 0 Регистрация: 03.12.2012 Сообщений: 8
		1
	найти произведение положительных елементов масива 04.12.2012, 17:10. Просмотров 960. Ответов 1 Метки нет (Все метки) найти произведение положительных елементов масива v(15) и количество всех отрицательных елементов сделайте пожалуйста 0

Опции темы

найти произведение положительных елементов масива

Решение