Паскаль 1 курс задание с матрицами фото внутри

[Renty]

Нужно написать программу на языке паскаль и впихнуть в неё все эти задание помогите пожалуйста прогу нужно сдать в четверг 30.12.10

[Novi4ok_11]

Это как одну нада оформить? или как 3 можно?

[Renty]

Ну вроде как я понял это все нужно в 1 программу

[Novi4ok_11]

1.

for i:=1 to n do
begin
buf:=a[1,i];
a[1,i]:=a[n,i];
a[n,i]:=buf;
end;

[Novi4ok_11]

2.

for i:=1 to n do 
  begin
  s:=0;
     for j:=1 to m do s:=s+a[i,j];
  writeln('Summa dlya ',i,' stroki =',s);
  end;

[Novi4ok_11]

3.

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

[Renty]

Novi4ok_11
спасибо попытаюсь в 1 код все загнать...

[Novi4ok_11]

Пробуйте, не получится - скидывайте что написали - поправим

[Renty]

Все программа вроде работает
Спасибо !

[Novi4ok_11]

Не за что!