Помогите с матрицей. Паскаль

[Executr]

Помогите ,пожалуйста, написать программы



Заранее спасибо!

[Tayfun]

Заранее пожалуйста!
А можно уточнить-? А где можно программы найти-?
Нашел... С первого раза не разлядел...

[11111]

№1(только без модуля) надо дописать abs

Program maxs;
type
    size=1..100;
var 
    m:array[size] of integer;
    max,i,n:byte;
BEGIN
   repeat
        write('Vvedite razmernost masiva'); readln(n);
until n<=100;
   for i:=1 to n do
       begin
          write('m[',i:2,']=');
readln(m[i])
       end;
   writeln;
   max:=m[1];
   for i:=2 to n do
       begin
         if m[i]>max then
            begin
                max:=m[i];             
            end;
       end;
   write('Max element ',max);
readln;  
end.

[puporev]

№ 11111 еще забыл добавить, что кроме abs нужно немного подогнать код под двумерный массив.

[kommunist]

задача №1

program massiv;
uses crt;
const n = 3;
      m = 4;
type matr = array[1..n,1..m] of integer;
var a:matr;
    i:integer;
    j:integer;
    max:integer;
begin
    clrscr;
    writeln('vvedite massiv:');
    for i:= 1 to n do
begin
    for j:= 1 to m do
begin

    readln(a[i,j]);
end;
    writeln;
end;

begin
   max:=a[1,1];
  for i:= 1 to n do
    begin
      for j:= 1 to n do
      begin
        if a[i,j]> max then max:=a[i,j];
       end;
       end;
       writeln('max=',max);
       end;
       end.

[puporev]

Задача №2.

program zad_2;
uses crt;
var
   C:array[1..4,1..5]of integer;
   i,j,k,sum:integer;
begin
clrscr;
write('введите массив');       вводим числа из задачи по строкам
writeln;
for i:=1 to 4 do
  for j:=1 to 5 do
  readln(C[i,j]);
clrscr;                      очищаем экран
for i:=1 to 4 do              выводим массив в виде матрицы
  begin
    for j:=1 to 4 do
    write(C[i,j]:3);
    writeln;
  end;
  readln;
i:=3;k:=0;sum:=0;            решаем задачу
for j:=1 to 5 do
   if abs(C[i,j])>1 then
      begin
        k:=k+1;
        sum:=sum+sqr(C[i,j]);
      end;
writeln('k = ',k);            выводим решение на экран
writeln('sum = ',sum);
readln;
end.

Кстати по образцу этого кода поправь код первой задачи от Kommunist.