FORUM
Pagina de start a forumului eggzit.3xforum.ro 		Lista Forumurilor Pe Tematici
FORUM | Reguli | Inregistrare | Login

POZE FORUM

Nu sunteti logat. 		Nou pe simpatie:
Scumpa85
Femeie
24 ani
Bucuresti
cauta Barbat
27 - 45 ani
FORUM / Forum Nou / 3  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{se citste un sir de n numere reale. Sa se
afiseze prima cifra zecimala a fiecarui numar}
var a:array[1..10] of real;
n,i:integer;
begin
write('n='); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]);
end;
for i:=1 to n do write(abs(trunc(a[i]*10) mod 10),' ');
readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la