Написать программу, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением - Turbo Pascal

Формулировка задачи:

Помогите пожалуйста решить задачу с помощью процедуры "Написать программу, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением."


textual

Код к задаче: «Написать программу, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением - Turbo Pascal»

uses crt;
const n=5;
var a:array[1..n]of integer;
    i,j,k:integer;
begin
 clrscr;
 writeln('Введите ',n,' чисел: ');
 for i:=1 to n do
  read(a[i]); {вводим числа через пробел}
  k:=0;
 for i:=1 to n do
  for j:=i to n do
   if (a[i]=a[j])and(i<>j)then {если совпадабт, а номера разные}
    begin
     k:=k+1; {считаем}
    end;
 if k>0 then writeln('Одинаковые числа есть.')
 else if k=0 then writeln('Одинаковых чиесл нет.');
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 3.786 из 5

Источник
Похожие ответы