Заполнить массив 20-ю случайными числами так, чтобы числа не повторялись.

Question

40

Заполнить массив 20-ю случайными числами так, чтобы числа не повторялись.

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

vetalyoun · Accepted Answer

75

vetalyoun

13 апреля 2023

const n=20; var a: array[1… n] of integer; i, j: integer; check: boolean; begin for i: =1 to n do begin repeat a[i]: =random (21); check: =true; for j: =1 to i — 1 do if a[i]=a[j] then begin check: =false; break; end; until check; write (a[i], '); end; writeln; end.

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: