Помогите пожалуйста с задачей Pascal

[[METAL]]

1)Дана квадратная матрица C. Найти максимальные элементы на главной и побочной диагоналях. Вывести исходную матрицу в общепринятом виде.
Результат вывести в произвольном виде.
2) Дана последовательность из n целых чисел - определить сколько чисел кратных семи и попадающих в заданный интервал в ней.
Программу написал:

var
a,b,kol,i,n,c: integer;
begin
writeln('vvedite kolichestvo');
read(n);
Writeln('vvedite interval');
readln(a,b);
kol:=0;
for i:=1 to n do
 begin
 write('vvedite',i,'element');
 readln(c);
 if c mod(7)=0 then
 if (c>a) and (c<b) then Kol:=kol+1;
 end;
Writeln(kol);
Readln(kol);
end.

Она(2) работает но непонятен один глюк - например если задаю интервал
от -10 до 10 а в последовательности скажем есть чесло -70 -программа его тоже считает,несмотря на то что оно не входит в интервал. Почему вот так?

[dexterua]

Напишите пример на котором не работает, скопировал код, ввел количество 1, интервал -10 10, значение -70
пишет количество 0

Что не так делаю?

P.S не помешали бы пробелы в write('vvedite',i,'element');

[Stilet]

Она работает

код в студию

[[METAL]]

Сообщение от dexterua

Напишите пример на котором не работает, скопировал код, ввел количество 1, интервал -10 10, значение -70
пишет количество 0

Что не так делаю?

P.S не помешали бы пробелы в write('vvedite',i,'element');

Уже проблему решил - прога просто 0 воспринимало как число кратно 7,исправил,сейчас работает нормально, добавил стороку перед целочисленным делением просто:
if (c<0) or (c>0) then

Теперь нужно только написать вот первую задачу.

[Stilet]

Теперь нужно только написать вот первую задачу.

Такое подойдет?

 const n=5;
 var c:array[1..n,1..n] of integer;
 q,w,mx1,mx2:integer;
begin
 for q:=1 to n do begin
  for w:=1 to n do begin
   c[q,w]:=50-random(100);
   if (q=w)and(mx1<c[q,w]) then mx1:=c[q,w];
   if ((n-q+1)=w)and(mx2<c[q,w]) then mx2:=c[q,w];
   write(c[q,w]:6);
  end;
  writeln;
 end;
 writeln;write(mx1:5,mx2:10);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[[METAL]]

Ну в общем то да, но желательно что бы размер матрицы можно было задавать.

[Stilet]

Ну в общем то да, но желательно что бы размер матрицы можно было задавать.

т.е. после запуска программы??

[[METAL]]

Сообщение от Stilet

т.е. после запуска программы??

Ну да,запустил - программа выдаёт что то типа задайте размерность или что подобное.

[Stilet]

[METAL]

В таком случае почитай описание и примеры GetMem
В Паскалевском хелпе есть - он может динамически память распределять

[[METAL]]

Ок,спасибо за помощь!