Лаба по масивам/// запутался ((

[G-leb]

Задали массив чисел A (n) , n ≤ 500. Разработать программу, которая вычисляет сумму всех чисел, которые повторяются, и произведение всех чисел, которые не повторяются
///Задайте значение действительным величинам произвольным образом в диапазоне от 0 до 100///

program lab5;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Var
   a : array [1..500] of   integer;
   i,n,k,j,g: integer;
       z:boolean;
begin
   z:= true;
   while (z) do begin


   writeln(' vvedite kol-vo elementov maciva= ');
   readln(n);
      if (n<501) then
       begin
       z:= false;
        randomize;
         k := random (100);
        for i:=k to n do
         read(a[i]);
        writeln;
        for i:=k to n do
         write(a[i],' ');
        writeln;
        for i:=1 to n do
         begin
         g:=0;
         for j:=1 to n do
         if a[i]=a[j]then inc(g);
        if g=1 then write (a[i],' ');



         end
         else
         z:= true;
         end
        readln;

end.

[G-leb]

Подправил чуть .. но не понимаю как определить одинаковые елементы и прибавить их .. а разные умножить ?

[kventin_zhuk]

Сообщение от G-leb

Подправил чуть .. но не понимаю как определить одинаковые елементы и прибавить их .. а разные умножить ?

А расскажите суть вашего алгоритма, а то вот гляжу на него - понять не могу, вы там в цикле размерность вводите?

[G-leb]

на самом деле .. код бред .. вот пришел к результату ..

uses
  SysUtils;
const n = 5;
type mas = array[1..n] of integer;
var a: mas; i: byte;
begin writeln('vvod:');
for i:=1 to n do readln(a[i]);
writeln('vuvod:');
   for i:=1 to n do write(a[i]:n);
   readln;
   end.

все работает .. как теперь найти похожие и добавить , а не похожие умножить ?

[Stilet]

Предлагаю такую схему:

Var
   a : array [1..5,1..2] of   integer;
   i,n,k,j,g: integer;
       z:boolean;
begin
 Randomize;
 for i:=1 to 5 do begin
   a[i,1]:=Random(5);
// Пройдем назад и если найдем подобное - увеличим его кол-во
   for j:=1 to i-1 do if a[i,1]=a[j,1] then inc(a[i,2]);
 end;

 g:=1;
  for i:=1 to 5 do begin
// Если колво подобных более нуля то суммируем иначе умножаем
   if a[i,2]>0 then n:=n+a[i,1] else g:=g+a[i,1];
 end;
// Тут выводим массивы
readln;
end.

Смысл понятен?

[kventin_zhuk]

program lab5;

{$APPTYPE CONSOLE}

uses
  crt;

Var
   a : array [1..500] of   integer;
   n, i, j, k, sum, mul, col: integer;
begin
  write('Введите размерность массива:');
  readln(n);
  mul := 1;// cумма элементов
  sum := 0;
// инициализация массива
  for i := 1 to n do
  begin
    randomize;
    a[i] := random (100);
  end;
// вывод элементов
  for i := 1 to n do   write(a[i], ' ');
//  проход массива. Каждый элемент сравниваем с каждым.
  writeln;
  k := 1;
  for i := 1 to n do
  begin
    col := 0; // переменная для  подсчёта  количества совпадений.
    for j := 1 to n do
    begin
    // если встретился такой же элемент
      if (a[i] = a[j]) then
      begin
        inc(col);// увеличиваем счётчик совпадений на 1
      end;
    end;
    { если  в программе было только одно свпадение чисел(сравнили
    число с самим собой) - произведение элнментов }
    if (col = 1) then
      mul := mul * a[i]
    else
    // иначе - сумма
    sum := (sum + a[i]);
  end;
  writeln('Cумма = ',sum);
  writeln('Произведение = ', mul);
  
end.

вот набросал кое что. суть такая: каждый элемент сравниваем с каждым и увеличиваем счётчик. Если счетчик =1(элемент не повторяется в массиве)
- умножаем, иначе складываем. Но если в массива, например два числа повторяются, 5 - то сумма их будет 10. И не вводите слишком большой размер матрицы - при умножении получаются гигантские числа.

[G-leb]

kventin_zhuk

1. сказано в задании - "Задайте значение действительным величинам"

> mas = array[1..n] of integer; ставлю real выдает ошибку ...

2. генерирует как-то странно по 10-15 одинаковых чисел
и

uses
crt; тож ошибку выдает ставлю
uses
SysUtils; только тогда работает

[kventin_zhuk]

у меня просто паскаль АBC установлен. Уберите подключение crt. Я сделал для integer. Но если элементы массива Real. то переменные sum и mul должны быть типа real.(так как произведение/ сумма целых чисел - число целое, а действительных - действительное)

[G-leb]

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

у меня просто паскаль АBC установлен. Уберите подключение crt. Я сделал для integer. Но если элементы массива Real. то переменные sum и mul должны быть типа real.(так как произведение/ сумма целых чисел - число целое, а действительных - действительное)

спасибо оч помогли .. ето моя персая лаба по масивам ))) ... разобрался ...!!!