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