Скачать
Remplissage d'un tableau par des entiers aléatoires (Seance 2)
Автор: Ezzeddine Soussi
Загружено: 2020-03-30
Просмотров: 4912
Описание:
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.
Доступные форматы для скачивания:
Скачать видео mp4
-
Информация по загрузке:
![Мозаика Пенроуза, бесконечная и неповторимая [Veritasium]](https://image.4k-video.ru/id-video/gqlnXRxV32o)
