Кирилл
Delphi. Нужна помощь, спасайте
Задано массив целых чисел A(n), n=<500. Разработать программу, которая вычисляет сумму всех чисел, которые повторяются и произведение всех чисел, не повторяются
Задано массив целых чисел A(n), n=<500. Разработать программу, которая вычисляет сумму всех чисел, которые повторяются и произведение всех чисел, не повторяются
program q171470926;
var
i, n, s, p: integer;
a: array [1..500] of integer;
function IsRepeatedDigit(Digit: integer): boolean;
var
i, c: integer;
begin
c := 0;
for i := 1 to n do
if a[i] = Digit then
Inc(c);
Result := (c > 1);
end;
begin
Randomize;
n := Random(500) + 1;
for i := 1 to n do
begin
a[i] := Random(MaxInt);
Write(a[i], ' ');
end;
WriteLn;
s := 0;
p := 1;
for i := 1 to n do
if IsRepeatedDigit(a[i]) then
s := s + a[i]
else
p := p * a[i];
WriteLn('Сумма: ', s);
WriteLn('Произведение: ', p);
ReadLn;
end.
...
cyberforum.ru/pascal/thread142732.html