Определите есть ли в массиве А элементы с одинаковыми значениями. Выведите их на экран

@Светлан0чка · Регистрация: 01.04.2013

Author24 — интернет-сервис помощи студентам

Определите есть ли в массиве А элементы с одинаковыми значениями. Выведите их на экран.

Добавлено через 13 минут
ПОМОГИТЕ ПОЖАЛУУЙСТА

@chizz · 13.06.2013, 16:10

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; {считаем}
     write(a[i]); write(' '); {Выводим}
    end;
 if k>0 then writeln('Одинаковые числа есть.')
 else if k=0 then writeln('Одинаковых чиесл нет.');
end.

Есть ли в массиве элементы с одинаковыми значениями.

@Светлан0чка 0 / 0 / 0 Регистрация: 01.04.2013 Сообщений: 32
		1
	Определите есть ли в массиве А элементы с одинаковыми значениями. Выведите их на экран 13.06.2013, 16:01. Показов 1612. Ответов 1 Метки нет (Все метки) Определите есть ли в массиве А элементы с одинаковыми значениями. Выведите их на экран. Добавлено через 13 минут ПОМОГИТЕ ПОЖАЛУУЙСТА 0

	13.06.2013, 16:10

Опции темы

Определите есть ли в массиве А элементы с одинаковыми значениями. Выведите их на экран

Решение