помогите пожалуйста

[любаша]

здравствуйте!!!через два дня экзамен,полный затор.истерика!!не могу решить уже самое простое .помогите пожалуйста,только не издевайтесь
дана матрица:
1.найти сумму элементов заданного столбца
2.произведение элементов заданной строки
3.максимальный элемент в матрице и вывести номер строки и столбца на которых он находится
4.максимальный элемент двух столбцов матрицы
5.поменять местами элементы двух столбцов


буду благодарна хоть за какую-нибудь помощь((((((

[Gorka]

Готовы помочь, стучите ICQ: 367244151 или пишите support@programmersteam.com

[paloit]

362827711 стучи, разберемся

[Greblin]

Описание и чтение матрицы напишу в первой задаче. В остальных только то что непосредственно надо делать
1.

program task1;
const m = 5; n = 10;
var A: array[1..m, 1..n] of real;
     col, i, j: integer; sum: real;
begin
writeln('Vvedite matritcu: ');
for i := 1 to m do
  for j := 1 to n do
    read(A[i, j]);
write('Vvedite nomer stolbtca: ');
readln(col);
sum := 0;
for i := 1 to m do sum := sum + A[i, col];
write(sum);
end.

[Greblin]

2.

var row: integer; mul: real;
...
write('Vvedite nomer stroki: ');
readln(row);
mul := 1;
for j := 1 to n do mul := mul * A[row, j];
write(mul);
end.

3.

var imax, jmax: integer; max: real;
...
max := A[1,1];
imax := 1; jmax := 1;
for i := 1 to m do
  for j := 1 to n do
    if A[i, j] > max then begin max := A[i, j]; imax := i; jmax := j end;
write(max:1:3,' ',imax,' ',jmax);
end.

[Greblin]

4.

var col1, col2: integer; max: real;
...
write('Vvedite nomera stolbtcov: ');
readln(col1, col2);
max := A[1, col1];
for i := 1 to m do
  begin
  if A[i, col1] > max then max := A[i, col1];
  if A[i, col2] > max then max := A[i, col2];
  end;
write(max:1:3)
end.

5.

var col1, col2: integer; buf: real;
...
write('Vvedite nomera stolbtcov: ');
readln(col1, col2);
for i := 1 to m do
  begin buf := A[i, col1]; A[i, col1] := A[i, col2]; A[i, col2] := buf end;
for i := 1 to m do
  begin
  for j := 1 to n do write(A[i, j]:1:3,' ');
  writeln
  end;
end.

[Тупой]

а может ей не на паскале надо?

[maladoy]

Сообщение от Тупой

а может ей не на паскале надо?

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