1) найти произведение отрицательных элементов массива;
2) найти сумму положительных элементов массива;
3) упорядоченный по невозрастанию массив преобразовать в упорядоченный по возраста-нию, оставив по одному в каждой группе совпадающих элементов.
Полная версия: Задача на одномерный массив
:low: Задан упорядоченный по невозрастанию одномерный массив. :low:
1) найти произведение отрицательных элементов массива;
2) найти сумму положительных элементов массива;
3) упорядоченный по невозрастанию массив преобразовать в упорядоченный по возраста-нию, оставив по одному в каждой группе совпадающих элементов.
1) найти произведение отрицательных элементов массива;
2) найти сумму положительных элементов массива;
3) упорядоченный по невозрастанию массив преобразовать в упорядоченный по возраста-нию, оставив по одному в каждой группе совпадающих элементов.
Ой, что-то мне кажется что все это уже было.... Chopper, вы искали по фруму?
Вот 2 точно было...
Вот 2 точно было...
А о чем мы говорили только что в "Club of Coders"? Это знамение свыше о бесмысленности стандартизации и архивов 
точно ... :yes:
не понял вас? здесь уже где-то есть ответ на эту задачу?
Читиай правила - там ясно сказано, что надо читать FAQ
Chopper
Вот тебе первые 2 части задания.
С третьей сам справишься, или нужна помощь?
Вот тебе первые 2 части задания.
Код
const
n = 10;
a: array[1 .. n] of integer =
(6, 4, 2, 2, 0, -1, -3, -5, -5, -6);
var
p, s: longint;
i: integer;
begin
p := 1; i := n;
while a[i] < 0 do
begin
p := p * a[i]; dec(i)
end;
writeln('p = ', p);
s := 1; i := 1;
while a[i] > 0 do
begin
s := s + a[i]; inc(i)
end;
writeln('s = ', s);
end.
n = 10;
a: array[1 .. n] of integer =
(6, 4, 2, 2, 0, -1, -3, -5, -5, -6);
var
p, s: longint;
i: integer;
begin
p := 1; i := n;
while a[i] < 0 do
begin
p := p * a[i]; dec(i)
end;
writeln('p = ', p);
s := 1; i := 1;
while a[i] > 0 do
begin
s := s + a[i]; inc(i)
end;
writeln('s = ', s);
end.
С третьей сам справишься, или нужна помощь?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.