В поточному полі потрібно знайти слово "інформатика", що міститься на початку поля. Вкажіть елемент керування, який дозволяє встановити відповідний параметр пошуку.
Немного не понял, упорядочить по возрастанию снизу вверх. Если выводить будет не так то в этой строчке изменишь знак на '>' if podarr[i] < podarr[i+1] then
program znanija_com; const n = 5; m = 3; type tArray = array[1..n, 1..m] of integer; tPodArray = array[1..n] of real; var arr : tArray; podarr : tPodArray; i,j,sum : integer; procedure swap(var x,y: real); var t: real; begin t := x; x := y; y := t end; begin randomize; writeln('Исходная матрица:'); for i:=1 to n do begin sum:=0; for j:=1 to m do begin arr[i, j]:=random(10); write(arr[i, j], ' '); sum:=sum+arr[i, j]; end; writeln(); podarr[i]:=sum/m; end; for j:=1 to n-1 do for i:=1 to n-j do if podarr[i] < podarr[i+1] then swap(podarr[i],podarr[i+1]); writeln('Результирующий массив:'); for i:=1 to n do writeln(podarr[i], ' '); end.
program znanija_com;
const
n = 5;
m = 3;
type
tArray = array[1..n, 1..m] of integer;
tPodArray = array[1..n] of real;
var
arr : tArray;
podarr : tPodArray;
i,j,sum : integer;
procedure swap(var x,y: real);
var t: real;
begin
t := x;
x := y;
y := t
end;
begin
randomize;
writeln('Исходная матрица:');
for i:=1 to n do begin
sum:=0;
for j:=1 to m do begin
arr[i, j]:=random(10);
write(arr[i, j], ' ');
sum:=sum+arr[i, j];
end;
writeln();
podarr[i]:=sum/m;
end;
for j:=1 to n-1 do
for i:=1 to n-j do
if podarr[i] < podarr[i+1] then
swap(podarr[i],podarr[i+1]);
writeln('Результирующий массив:');
for i:=1 to n do
writeln(podarr[i], ' ');
end.