Написать программу в паскале, которая проверяет, есть - вопрос №1411036 от ник4410 30.05.2020 21:54

Question

Информатика: Написать программу в паскале, которая проверяет, есть ли во введенном с клавиатуры массиве элементы с одинаковым значением.

ник4410 · Answer

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.