Вопрос, который вызвал трудности
Элементы каждой строки матрицы а 1;2 1;2 переставить в порядке возрастания их значений Написать алгоритм и блок-схему
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Элементы каждой строки матрицы а 1;2 1;2 переставить в порядке возрастания их значений Написать алгоритм и блок-схему
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
Program SORT_1;
Const n=10;
Var
Mas : array[1..n] of integer;
i , c, p : integer;
Begin
Writeln(‘Введите значения элементов массива’);
For i:=i to n do
begin
Write(‘mas[‘,i,’]=’);
Readln(mas[i]);
end;
repeat
p:=0;
for i:=1 to n-1 do
if mas[i]> mas[i+1] then
begin
c:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=c;
p:=1;
end;
until p=0;
writeln(‘Упорядоченный по возрастанию массив:’);
for i:=1 to n do writeln(‘mas[‘,i,’]=’, mas[i]);
End.
Const n=10;
Var
Mas : array[1..n] of integer;
i , c, p : integer;
Begin
Writeln(‘Введите значения элементов массива’);
For i:=i to n do
begin
Write(‘mas[‘,i,’]=’);
Readln(mas[i]);
end;
repeat
p:=0;
for i:=1 to n-1 do
if mas[i]> mas[i+1] then
begin
c:=mas[i];
mas[i]:=mas[i+1];
mas[i+1]:=c;
p:=1;
end;
until p=0;
writeln(‘Упорядоченный по возрастанию массив:’);
for i:=1 to n do writeln(‘mas[‘,i,’]=’, mas[i]);
End.