A voir également:
- Comment ouvrir un fichier exo?
- Comment ouvrir un fichier epub ? - Guide
- Comment ouvrir un fichier bin ? - Guide
- Comment ouvrir un fichier dat - Guide
- Comment ouvrir un fichier docx ? - Guide
- Comment réduire la taille d'un fichier - Guide
1 réponse
program tableau_m;
uses wincrt;
type matrice=array[1..2,1..25] of integer;
var
m:matrice;
i,val:integer;
begin
for i:=1 to 25 do begin
clrscr;
write('entrez une valeur entière :');read(val);
m[1,i]:=val;
m[2,i]:=sqr(m[1,i]);
end;
for i:=1 to 25 do write(' ',m[1,i]);
writeln;
for i:=1 to 25 do write(' ',m[2,i]);
end.
uses wincrt;
type matrice=array[1..2,1..25] of integer;
var
m:matrice;
i,val:integer;
begin
for i:=1 to 25 do begin
clrscr;
write('entrez une valeur entière :');read(val);
m[1,i]:=val;
m[2,i]:=sqr(m[1,i]);
end;
for i:=1 to 25 do write(' ',m[1,i]);
writeln;
for i:=1 to 25 do write(' ',m[2,i]);
end.