Remplissage d'un tableau par des entiers aléatoires (Seance 2)
Ezzeddine Soussi
0:00 / 0:00
Remplissage d'un tableau par des entiers aléatoires (Seance 2)
4 966 просмотров · 6 л. назад
Ezzeddine Soussi
1,07 тыс. подписчиков
4 966 просмотров · 6 л. назад
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.
