Регистрация
17Стася17
07.11.2021 06:14
Информатика
Есть ответ 👍

СОЧ ПО ИНФОРМАТИКЕ ПОМАГИТЕ ЕСЛИ НЕ СЛОЖНО !

215
467
Посмотреть ответы 2

Ответы на вопрос:

Toprangdheb
Toprangdheb
4,6(3 оценок)

второй алгоритм которым шаги

mak57
mak57
4,4(4 оценок)
Program random_; uses crt; type arr = array[0..1000] of shortint; var ar,b,i: word; a: arr; begin randomize; for ar: =0 to 999 do a[ar]: = random(18)-9; b: =10; i: =0; repeat b: =a[i]; i: =i+1; until(b = a[i]) or (i = 999); if i = 999 then writeln('повторяющихся чисел нет! ') else writeln(i,' ',i+1) ; end.

Популярно: Информатика