работа с матрицами Pascal

[ksena24]

помогите написать прогу на паскале
дана целочисленная квадратная матрица. Определить:
1)количество строк которые не содержат нулевые элементы
2)максимальное число которое встречается в матрице больше 1 раза.

[RUSt88]

помогу выполнить, обращайтесь ))

[Stilet]

ksena24

А сама что нить написала уже?

[ksena24]

нет,еще ничего не писала.недавно начала паскаль учить...а прогу срочно нужно написать...хелп!!!

[Stilet]

Начни грызть гранит науки отсюда: http://yandex.ua/yandsearch?date=&te...oc=10&lr=20554

[KORT]

Вот код первого задания

Program xxx;
uses
crt;
const
n=4; {размерности массива}
m=4;
var
a: array [1..n,1..m] of integer;
i,j,k,l,max,p,sum: byte;
begin
clrscr;
randomize;
for i:= 1 to n do
begin
for j:= 1 to m do
begin
a[i,j]:= random(10);
write(a[i,j]:2);
end;
writeln;
end;
k:=0;
for i:= 1 to n do {нахождение ненулевых строк}
begin
for j:= 1 to m do
if a[i,j]<>0 then
inc(k);
if k=m then
inc(l);
k:=0;
end;
write('kol-wo nenulewih strok: ',l);
readkey;
end.