Написать программу в паскале, которая проверяет, - вопрос №1411604 от luluik 03.12.2021 22:27

Question

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

luluik · 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.