Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит определить, все ли элементы массива различны. Программа должна вывести одно из сообщений «Есть одинаковые элемены» или «Все элементы различны».
Ответы
Ответ дал:
0
var a: array [0..39] of integer; i,b: integer;
begin
randomize;
for i:=0 to 39 do a[i]:=random(0,200);
b:=1;
for i:=0 to 39 do begin
if b=39 then begin writeln('Все элементы различны'); break end
else
if (a[i]<>a[b]) and (b<39) then b+=1
else begin writeln('Есть одинаковые элемены'); break end
end
end.
Вас заинтересует
4 месяца назад
4 месяца назад
6 месяцев назад
6 месяцев назад
2 года назад
2 года назад
7 лет назад