program raf105;
const
n = 4;
m = 3;
var
a: array[1..n,1..m] of real;
b: array[1..n] of byte;
x: boolean;
begin
for var i: =1 to n do
begin
writeln('заполните столбец ',i,' числами по очереди');
for var j: =1 to m do
readln(a[i,j]);
end;
for var i: =1 to n do
begin
x: = true;
for var j: =1 to m-1 do
if not(a[i,j] < a[i,j+1]) and x then x: = false;
if x then b[i]: = 1
else b[i]: = 0;
end;
writeln;
writeln('массив b: ',b);
end.
pascalabcПоделитесь своими знаниями, ответьте на вопрос:
Дан одномерный массив заполненный двузначными числами найти наибольший элемент массива и наименьший.поменять их местами и новый массив вывести на экран