luni, 25 mai 2015
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.
Abonați-vă la:
Postare comentarii (Atom)
Niciun comentariu:
Trimiteți un comentariu