Question

Pascal !!! Дан массив целых чисел. Проверить, есть ли в нем одинаковые элементы.

Answer 1

Var a: array[1..10] of integer;
var i, j, ans:integer;
begin
ans:=0;
for i:=1 to 10 do 
begin  readln(a[i]); 
end; 
for i:=1 to 10 do 
begin   
for j:=i+1 to 10 do     
begin           
if a[i]=a[j] then ans:=ans+1;     
end;   
end;   
if ans>0 then writeln('есть')   
else writeln('нет');
end.  

Answer 2

Конечно, в Pascal можно создать программу для проверки наличия одинаковых элементов в массиве целых чисел. Одним из способов сделать это является перебор элементов массива и сравнение их между собой. Вот пример такой программы:

program CheckDuplicates;

const
  MaxSize = 100; // Максимальный размер массива

type
  IntArray = array[1..MaxSize] of Integer;

var
  arr: IntArray;
  size, i, j: Integer;
  foundDuplicate: Boolean;

// Функция для проверки наличия дубликатов в массиве
function HasDuplicates(arrayToCheck: IntArray; arraySize: Integer): Boolean;
var
  i, j: Integer;
begin
  for i := 1 to arraySize - 1 do
  begin
    for j := i + 1 to arraySize do
    begin
      if (arrayToCheck[i] = arrayToCheck[j]) then
      begin
        HasDuplicates := True;
        Exit;
      end;
    end;
  end;
  HasDuplicates := False;
end;

begin
  // Ввод размера массива
  Write('Введите размер массива (не более ', MaxSize, '): ');
  ReadLn(size);

// Проверка на корректность введенного размера
  if (size <= 0) or (size > MaxSize) then
  begin
    WriteLn('Некорректный размер массива.');
    Exit;
  end;

// Ввод элементов массива
  WriteLn('Введите элементы массива:');
  for i := 1 to size do
  begin
    Write('Элемент ', i, ': ');
    ReadLn(arr[i]);
  end;

// Проверка наличия дубликатов в массиве
  foundDuplicate := HasDuplicates(arr, size);

// Вывод результата
  if foundDuplicate then
    WriteLn('В массиве есть одинаковые элементы.')
  else
    WriteLn('В массиве нет одинаковых элементов.');
end.

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

Надеюсь, этот код поможет тебе в работе с массивами и проверке наличия дубликатов в них!