проги на паскале

[tomwell]

Дан двумерный массив А(5x6), заполненный случайным образом. Заменить максимальный элемент каждой строки на противоположный. Вставить после столбцов с максимальными элементами столбец из нулей. Удалить среднюю строку. Поменять местами средние столбцы.

и еще одна задача....


Вывести на экран матрицу С, полученную умножением матрицы A (10х11) на матрицу B(11х4).


пожалуйста помогите,не могу разобраться,не понимаю....

[p51x]

Что не понимаете? Как найти максимум из нескольких чисел? Или что такое "противоположный"?

[tomwell]

не понимаю массивы...мне нужно до завтра это решить...ппц

[Grag]

Обращайся, задачи вполне решаемы!
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[ROMA2PVT]

Program Umnoj2;
Const
n=10;
k=11;
m=11;
p=4;
Var
A,B,C: array [1..100,1..100] of integer;
i,j,l : integer; Summa: Integer;
begin
  writeln('Матрица (A): ');
  randomize;
  for i:=1 to n do
  begin
  for j:=1 to k do
    begin
     A[i,j]:=random(5);
      write(A[i,j],' ');
    end;
    writeln;
    end;
  writeln('Матрицу (B):');
  for i:=1 to m do
   begin
  for j:=1 to p do
   begin
   B[i,j]:=random(5);
   write(B[i,j],' ');
   end;
   writeln;
   end;
  for i:=1 to n do
    for j:=1 to p do
      begin
        Summa:= 0;
        for l:= 1 to p do
          Summa:= Summa + A[i,l]*B[l,j];
          C[i,j] := Summa;
      end;
  writeln('---- Результат: -----');
  for i:=1 to n do
    begin
      for j:=1 to m do
        write(C[i,j],' ');
      writeln;
    end;
readln;
end.

Вот вторая.

[tomwell]

спасибо огромное... =) хоть что-то есть,ато если не сдам это,просто выгонят...