У нас вы можете посмотреть бесплатно Remplissage d'un tableau par des entiers aléatoires (Seance 2) или скачать в максимальном доступном качестве, видео которое было загружено на ютуб. Для загрузки выберите вариант из формы ниже:
Если кнопки скачивания не
загрузились
НАЖМИТЕ ЗДЕСЬ или обновите страницу
Если возникают проблемы со скачиванием видео, пожалуйста напишите в поддержку по адресу внизу
страницы.
Спасибо за использование сервиса ClipSaver.ru
Program seance1; uses wincrt; type tab=array[1..20] of integer; var n:integer; t:tab; procedure saisie(var n:integer); begin repeat write('Donner le nombre de cases'); readln(n); until n in [5..20]; end; procedure remplir(var t:tab; n:integer); var i:integer; begin randomize; for i:=1 to n do begin t[i]:=random(91)+10; write(t[i],' '); end; end; {*** Programme principal ***} begin saisie(n); remplir(t,n); end.