Как пользоваться Поиском

поиск по сайту
логин

пароль

регистрация     
забыли пароль?

Помощь сайту

Лекции » Информатика, Логика

18.02.2020 в 11:41 Задачи к лекции
:
PASCAL. В прямоугольной матрице поменять местами 2 строки

uses crt;

const N=4;

const M=5;

var A: array[1..N,1..M] of integer;

var i,j,c: integer;

Begin

for i:=1 to n do   begin

    for j:=1 to m do begin

    a[i,j]:=random(10)+50;

    write(a[i,j]:4);

    end;

    writeln

end;

writeln(New);

for j:=1 to m do  begin

    c:=a[2,j];

    a[2,j]:=a[4,j];

    a[4,j]:=c  ;

    end;

for i:=1 to n do   begin

    for j:=1 to m do begin

        write(a[i,j]:4);

    end;

    writeln

end;

end.

Комментарии к лекции (скрыть)

Комментариев нет.

Задачи к лекции

Задач нет.