Создать и протестировать программу, которая считает количество одинаковых чисел в массиве...

Question

Создать и протестировать программу, которая считает количество одинаковых чисел в массиве размерностью 5. В ответе дать именно количество одинаковых чисел.То есть в массиве 1 1 2 4 1 одинаковых чисел 3 шт.lИли в массиве 1 1 4 3 4 одинаковых чисел 4 шт. На языке программирования Pascal

Comments

Язык программирования какой?

---

как же надели таки люди, которые думают, что задают вопросы на площадке экстрасенсов, магов и гадалок. Если вы реально так думаете, можете вопрос вообще не задавать, мы его и так узнаем.

Answer 1

var a: array [1..5] of integer;

i, j , count, sum_count: integer;

repeated : boolean;

begin

   for i := 1 to 5 do

   begin

       write('Введите ', i, '-e число: ');

       readln(a[i]);

   end;

   

   sum_count := 0;

   for i := 1 to 5 do

   begin

       repeated := false;

       for j := 1 to i - 1 do

       begin

           repeated := (a[i] = a[j]);

           if repeated then break;

       end;

       if repeated then continue;

       

       count := 1;

       for j:= i+1 to 5 do

           if (a[i]=a[j]) then

               inc(count);

       if count > 1 then

           sum_count += count;

   end;

   writeln(sum_count);

end.