• Дана матрица размера M × N и целые числа K1 и K2 (1 ≤ K1 < K2 ≤ M).
    Поменять местами строки матрицы с номерами K1 и K2.


    Решить в Pascal. Перед тем как выложить, проверить свое решение.

Ответы 2

  • Можешь не документом скинуть?
  •  varb:array [1..100] of integer;   a:array [1..100,1..100] of integer;   i, j,n,m,k1,k2: integer; beginwriteln ('Введите Кол-во строк');readln (n);writeln ('Введите Кол-во столбцов');readln (m);writeln ('Введите к1');readln (k1);writeln ('Введите к2');readln (k2);for i :=1 to n do       for j :=1 to m do          readln ( a [ i , j ]);         writeln ('Исходный массив');         for i:=1 to n dobegin  for j:=1 to m do  write(a[i,j]:4);  writeln;end;writeln;     for j :=1 to m do       b[j]:=a[k1][j];         for j :=1 to m do begin        a[k1][j]:=a[k2][j];        a[k2][j]:=b[j];      end;      writeln ('Массив после операций');      for i:=1 to n dobegin  for j:=1 to m do  write(a[i,j]:4);  writeln;end;end.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years