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

@Sektor69 · Регистрация: 25.01.2010

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

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

@John_Pa9JIbHuK · 26.01.2010, 01:08

Pascal

a:array[1..10] of integer;
i,l,m:integer;
Begin
For i:=1 to 10 do begin
a[i]:=random(10);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then m:=m*a[i];
end;

@we2seek · 26.01.2010, 01:23

Delphi

const n=10;
var a:array[1..n] of integer;
    i:integer;
    sum,p:integer;
begin
//Заполняем массив случайными элементами в диапазоне -10..+10
for i:=1 to n do 
  a[i]:=random(20)-10;
 
sum:=0; p:=1; //Устанавливаем значения по умолчанию для счетчиков суммы и произведения
for i:=1 to n do
  if (a[i]<=0) then sum:=sum+a[i] else p:=p*a[i];
// Далее любым удобным способом выводим значения переменных sum и p соответственно.
end.

Добавлено через 1 минуту

Сообщение от John_Pa9JIbHuK

Pascal

a:array[1..10] of integer;
i,l,m:integer;
Begin
For i:=1 to 10 do begin
a[i]:=random(10);
if a[i]<0 then l:=l+a[i];
if a[i]>0 then m:=m*a[i];
end;

По идее нужно обнулять значения счетчиков перед циклом

@Sektor69 · 26.01.2010, 02:18 **[ТС]**

Спасибо большое

@Demon-red · 26.01.2010, 05:06

Pascal

[1]uses crt;
[2]var mas:array[1..100] of integer;
[3]i,n,t,b:integer;
[4]s,proiz:integer;
[5]begin
[6]clrscr;
[7]s:=0;
[8]proiz:=1;
[9]randomize;
[10]write('введите количество элементов массива*: ');
[11]readln(n);
[12]for i:=1 to n do
[13]begin
[14]mas[i]:=random(10)-3;
[15]end;
[16]writeln('введенный массив : ');
[17]for i:=1 to n do
[18]write(mas[i],' ');
[19]begin
[20]for i:=1 to n do
[21]if mas[i]>0 then
[22]proiz:=proiz*mas[i];
[23]end;
[24]begin
[25]for i:=1 to n do
[26]if mas[i]<0 then
[27]s:=s+mas[i];
[28]end;
[29]writeln(' s =  ',s,' proiz = ',proiz);
[30]readkey;
[31]end.

@we2seek · 26.01.2010, 08:59

Demon-red, зачем два разных цикла писать: один для суммы, второй - для произведения? В одном нельзя сделать?
Вообще, чем тебе код программы в 15 строк хуже, чем твой?

@Sektor69 1 / 1 / 0 Регистрация: 25.01.2010 Сообщений: 21
		1
	Найти сумму отрицательных и произведение положительных элементов массива 26.01.2010, 00:54. Показов 15075. Ответов 5 Метки нет (Все метки) Найти сумму отрицательных и произведение положительных элементов массива. 0

@Sektor69 1 / 1 / 0 Регистрация: 25.01.2010 Сообщений: 21
	26.01.2010, 02:18 [ТС]	4
	Спасибо большое 0

@we2seek 84 / 84 / 42 Регистрация: 25.01.2010 Сообщений: 386
	26.01.2010, 08:59	6
	Demon-red, зачем два разных цикла писать: один для суммы, второй - для произведения? В одном нельзя сделать? Вообще, чем тебе код программы в 15 строк хуже, чем твой? 1

Опции темы