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:
roxigirl85 la Simpatie.ro
Femeie
25 ani
Bucuresti
cauta Barbat
30 - 46 ani
FORUM / Forum Nou / 30  
Autor
Mesaj Pagini: 1
eggzit
Username: 6R9PKQUKKU

Inregistrat: acum 20 ani
Postari: 215
{fisierul mat.in contine pe prima linie un natural n
iar pe urm linii cate n numere naturale }
program treizero;
type vector=array[1..100] of integer;
var a:array[1..10,1..10] of integer;
v:vector; f:text;
i,j,n,max:integer;
function sum(x:integer):integer;
var s:integer;
begin
s:=0;
while x<>0 do begin
s:=s+x mod 10;
x:=x div 10;
end;
sum:=s; end;
begin
assign(f,'mat.in'); reset(f);
readln(f,n);
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]);
for j:=1 to n do
begin
max:=a[1,j];
for i:=2 to n do
if a[i,j]>max then max:=a[i,j];
v[j]:=sum(max);
end;
for i:=1 to n do write(v[i],' ');
close(f);readln;
end.
pus acum 18 ani
   
Pagini: 1  

Mergi la