Assign (F 'date out'); Rewrite (F); Min:=0 ; For I;=1 to N do Begin S[F]:= 0; For J:=1 to M do S[I]:= S[I]+A[I,J]; Write (t, S[I],' ' ); if (min=0) or (s[I]min) the min = S[I] end writelen (f); For I:= 1 to N do If s[I] = min then write (F,I, ' '); close (F) end.

Au fost citite niste carti de critici literari. determinati punctajul acumulta de fiecare carte. Uses CRT Type T=Array [1..10, 1..100] of Integer; Lin=Array[1..10]of Integer; Var F; text; A:T; S:Lin;N,M,I,Y:byte;Min:Integer; begin Assign( F,'date in'); reset (F); readln(F,N,M); for I:= 1 to N do for J:= 1 to M do Read ( T,A[I,J]; close (F); end.

Uses CRT;
Type Tablou:=Array[1..100]of real;
var x:tablou;
j,h:integer
med,s:real;
begin
writeln("de 100 de valori");
for i:=to 100 do
readln(x[i]);
end;
begin writeln("tabloul");
for i:=1 to 100 do
write (x[i]:7:2)
end;
begin
S:=0
for i:=1 to 100 do
S:=S+A[i]
Med:=S/100
end:
Begin
media(x) writeln("media=",med);
end.