помогите пожалуйста...

[Alira]

на паскале 2 задачки, не знаю как решить...

[Maslan]

Первая: [Решение первой задачи]
Вторая: [Решение второй задачи]

[Alira]

1) Одномеpный массив A=(a1,a2,...,an) упорядочен по возрастанию значений. Все нулевые элементы этого массива заменить на наименьший элемент этого массива.

2) Дана матpица A(n*m) и целые числа p и q. Пpеобpазовать матpицу А так, чтобы стpока с исходным номеpом p непосpедственно следовала за стpокой с исходным номеpом q, сохpанив поpядок следования остальных стpок.

[Alex21]

program change;
const
N=10;

var a:array[1..N]of integer;
    i:integer;
    min:integer;

begin
{считаем, что массив уже создан}
  min:=a[1];
  {поиск минимума}
  for i:=1 to n do
    if a[i]<min then min:=a[i];
  {замена нулевых на МИН}
  for i:=1 to n do
  begin
    if i<=0 then
    begin
      if a[i]=0 then a[i]:=min;
    end else exit;
  end;
end.

[Alira]

как раз с таким решением и подумает что сама

[Stilet]

упорядочен по возрастанию значений

Уже упорядочен?

[Alira]

как же быстро то все...

[Maslan]

Program Matrt;
Uses Crt;

Const L=34; {длина массива}
      N=10;M=20; {разеры матрицы}
Var i,j,k:integer;
massiv_A:Array[1..l] of real;
matrix_A:Array[1..N] of array [1..m] of real;
Procedure SortMatix(p,q:integer);
Var temp_array:array[1..m] of real;
begin
For i:=1 to m do temp_array[i]:=matrix_A[p][i];
For i:=p to q-2 do
For j:=1 to m do
matrix_a[i][j]:=matrix_a[i+1][j];
if q<>n then
begin
For j:=1 to m do
matrix_a[q-1][j]:=matrix_a[q+1][j];
For j:=1 to m do
matrix_a[q+1][j]:=temp_array[j];
end
else
begin
For j:=1 to m do
matrix_a[q-1][j]:=matrix_a[q][j];
For j:=1 to m do
matrix_a[q][j]:=temp_array[j];
end;
end;

Procedure Zamenit_nuli;
Begin
i:=1;
While massiv_A[i]=0
  do i:=i+1;
For j:=1 to L
  do if massiv_A[j]=0 then massiv_A[j]:=Massiv_A[i];
End;
Begin
end.

И в продолжение оффтопа: Всё в порядке, "профессор - лопух" (С) =)

[Virtson]

Сегодня, 14:42 #3
Alira
Новичок

Сегодня, 14:42 #4
Alex21
Модератор
Заслуженный модератор

-=1=- ...

Super ...

[Alira]

Сообщение от Maslan

Program Matrt;
....

не работает че-то...