Написать программу в паскале, которая проверяет, - вопрос №1411436 от 18larina18 19.10.2022 23:17

Question

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

18larina18 · 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.