Ответы на вопрос:
Составное условие – логическое выражение, содержащее несколько простых условий объединенных логическими операциями. Это операции not, and, or. Примечание: False - ложь, True - истина. Операция not (не) - логическое отрицание.
uses crt; var i,j,k,n,m,t: integer; mas: array[1..10,1..10]of integer; begin randomize; readln(n); readln(m); writeln; writeln('bazovui massiv'); for i: =1 to m dofor j: =1 to n do mas[i,j] : =random(100); for i: =1 to m do beginwriteln; for j: =1 to n dowrite (mas[i,j],' '); end; writeln; for i: =1 to m dofor j: =1 to n do for k: =1 to n-1 do if mas[i,k]> mas[i,k+1] then begin t: =mas[i,k]; mas[i,k]: =mas[i,k+1]; mas[i,k+1]: =t; end; writeln; writeln('massiv posle obrabotki') ; for i: =1 to m do beginwriteln; for j: =1 to n dowrite (mas[i,j],' '); end; end.
uses crt; var i,j,k,n,m,t: integer; mas: array[1..10,1..10]of integer; begin randomize; readln(n); readln(m); writeln; writeln('bazovui massiv'); for i: =1 to m dofor j: =1 to n do mas[i,j] : =random(100); for i: =1 to m do beginwriteln; for j: =1 to n dowrite (mas[i,j],' '); end; writeln; for i: =1 to m dofor j: =1 to n do for k: =1 to n-1 do if mas[i,k]> mas[i,k+1] then begin t: =mas[i,k]; mas[i,k]: =mas[i,k+1]; mas[i,k+1]: =t; end; writeln; writeln('massiv posle obrabotki') ; for i: =1 to m do beginwriteln; for j: =1 to n dowrite (mas[i,j],' '); end; end.
Популярно: Информатика
-
Амина1912111.12.2021 16:41
-
Светик1111прод09.12.2020 22:17
-
катя506918.09.2020 21:41
-
Avry9927.09.2021 05:50
-
versuspro9927.12.2021 14:43
-
kristinakarpen16.08.2022 09:45
-
vmyasnikova11.04.2022 10:03
-
Unicorn567912.05.2023 15:29
-
mczuf14.08.2021 07:42
-
Den041005.04.2023 16:47