FORUM
Pagina de start a forumului eggzit.3xforum.ro
|
Nou pe simpatie:
monaahmed2012 la Simpatie.ro
 | Femeie
25 ani
Calarasi
cauta Barbat
25 - 48 ani |
|
|
FORUMReguliInregistrareLoginPozeNu sunteti logat. Lista Forumurilor Pe Tematici
|
| #1 |
 eggzitUsername: 6R9PKQUKKU
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.
|
|
| |
|
