Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы

@MARYLKOI · Регистрация: 16.10.2016

Author24 — интернет-сервис помощи студентам

Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы.

@JokeR.BY · 17.10.2016, 11:49

Pascal

const
    N = 5;
    M = 6;
var
    ar: Array[1..N, 1..M] Of ShortInt;
    i: 1..N;
    j: 1..M;
begin
    Randomize; WriteLn('Original:');
    for i := 1 to N do
    begin
        for j := 1 to M do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    WriteLn; WriteLn('Modified:');
    for i := 1 to N do
    begin
        Inc(ar[i, 1], ar[i, 2]);
        ar[i, 2] := ar[i, 1] - ar[i, 2];
        Dec(ar[i, 1], ar[i, 2]);
        for j := 1 to M do
            Write(ar[i, j]:4);
        WriteLn;
    end;
end.

@MARYLKOI 0 / 0 / 0 Регистрация: 16.10.2016 Сообщений: 4
		1
	Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы 17.10.2016, 11:34. Показов 1837. Ответов 1 Метки нет (Все метки) Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы. 0

	17.10.2016, 11:49

Дана целочисленная матрица размера 5x6. Поменять местами 1 и 2 столбцы

Решение