Описать процедуру, которая вычисляет в списке произведение отрицательных элементов и сумму элементов, кратных 3 или 5

@Ilyaru · Регистрация: 06.11.2013

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

Доброго времени суток.
Сформировать список из элементов целого типа со знаком. Данные ввести с клавиатуры. Описать процедуру, которая вычисляет в списке произведение отрицательных элементов и сумму элементов, кратных 3 или 5.
Заранее спасибо.

@Gabdulhanov · 25.03.2014, 13:16

Pascal

uses crt;
const n=10;
type t=array [1..n] of integer;
var a:t;
i,s,p:integer;
 
procedure pr_sum(mas:t;var sum,pr:integer);
var j:integer;
begin
sum:=0; pr:=1;
for j:=1 to n do
begin
if (mas[j]<0) then pr:=pr*mas[j];
if (mas[j] mod 3=0)or(mas[j] mod 5=0) then sum:=sum+mas[j];
end;
end;
 
begin
Writeln('Vvedite elementi massiva:');
for i:=1 to n do Readln(a[i]);
Writeln;
pr_sum(a,s,p);
Writeln('sum=',s);
Writeln('pr=',p);
Readln;
end.

@Ilyaru · 31.03.2014, 09:17 **[ТС]**

В моей задаче необходимо получить список, а не просто результат.
По типа этого: "список: 2.0 6.8 -7.2 6.8"

@Ilyaru 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 69
		1
	Описать процедуру, которая вычисляет в списке произведение отрицательных элементов и сумму элементов, кратных 3 или 5 25.03.2014, 11:16. Показов 1345. Ответов 2 Метки нет (Все метки) Доброго времени суток. Сформировать список из элементов целого типа со знаком. Данные ввести с клавиатуры. Описать процедуру, которая вычисляет в списке произведение отрицательных элементов и сумму элементов, кратных 3 или 5. Заранее спасибо. 0

@Ilyaru 0 / 0 / 0 Регистрация: 06.11.2013 Сообщений: 69
	31.03.2014, 09:17 [ТС]	3
	В моей задаче необходимо получить список, а не просто результат. По типа этого: "список: 2.0 6.8 -7.2 6.8" 0

Описать процедуру, которая вычисляет в списке произведение отрицательных элементов и сумму элементов, кратных 3 или 5

Решение