Кто приемник,кто источник? составьте словосочетания с словаря.словарь: показывает,пробует,трогает,говорит,слышит,видит

101

233

Посмотреть ответы 1

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

bogdOJ

Информатика

4,5(54 оценок)

Const n = 99; var i, j, t: integer; flag: boolean; mas: array[1..n]of integer; begin randomize; i : = 0; while i < n do begin t : = random(1, 99); flag : = true; for j : = 1 to i do if t = mas[j] then begin flag : = false; break end; if flag then begin i : = i + 1; mas[i] : = t end end; for i : = 1 to n do write(mas[i], ' ') end.