Задать вопрос Регистрация
Помочь другим

  • Написать программу в ПАСКАЛЕ, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением. Пожалуйста подробно...

Ответы 1

  • var a:array [1..100] of integer;

    n,i,j:integer;

    f:boolean;

    BEGIN

      read(n);

      f:=false;

      for i := 1 to n do begin

        readln(a[i]);

        for j:= 1 to i-1 do

          f=f or (a[i]=a[j]);

      end;

      writeln(f);

     

    END.

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years