Free Pascal!!! задание по массивам!!!!!!!!!

[Vika_0_0]

Найти количество перемен знака в массиве из N чисел. Нулевые элементы заменить абсолютным значением предыдущего. Если первый элемент нулевой, то заменить его числом F

[ByAlex]

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

Найти количество перемен знака в массиве из N чисел. Нулевые элементы заменить абсолютным значением предыдущего. Если первый элемент нулевой, то заменить его числом F

В чем сложность, Вика?

[Vika_0_0]

во всем сложность!!!!!!!!!!!!!!

[ByAlex]

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

во всем сложность!!!!!!!!!!!!!!

Попробуем чем-нибудь помочь!

[Vika_0_0]

спасибо))))

[ByAlex]

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

спасибо))))

Держи -

uses crt;
const
  N=10;
var
  Arr:array[1..N] of integer;
  i,t,F,Kol:integer;
begin
  Kol:=0;
  writeln('Vvedite massive iz ',N,' elementov - ');
  for i := 1 to N do
  begin
    write('Arr[',i,'] = ');
    readln(Arr[i]);
  end;
  writeln;
  if Arr[1]=0 then
  begin
    write('Vvedite chislo F = ');
    readln(F);
    Arr[1]:=F;
  end;
  for i := 2 to N do
  begin
    if Arr[i]=0 then
      Arr[i]:=Abs(Arr[i-1]);
    if ((Arr[i]>0) and (Arr[i-1]<0)) or ((Arr[i]<0)and(Arr[i-1]>0)) then
      Inc(Kol);
  end;
  writeln;
  write('Result massive = ');
  for i := 1 to N do
    write(Arr[i],' ');
  write(#13#10'Kolichesvo izmeneniy znakov = ',kol);
  readln;
end.

[Vika_0_0]

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

Держи -

uses crt;
const
  N=10;
var
  Arr:array[1..N] of integer;
  i,t,F,Kol:integer;
begin
  Kol:=0;
  writeln('Vvedite massive iz ',N,' elementov - ');
  for i := 1 to N do
  begin
    write('Arr[',i,'] = ');
    readln(Arr[i]);
  end;
  writeln;
  if Arr[1]=0 then
  begin
    write('Vvedite chislo F = ');
    readln(F);
    Arr[1]:=F;
  end;
  for i := 2 to N do
  begin
    if Arr[i]=0 then
      Arr[i]:=Abs(Arr[i-1]);
    if ((Arr[i]>0) and (Arr[i-1]<0)) or ((Arr[i]<0)and(Arr[i-1]>0)) then
      Inc(Kol);
  end;
  writeln;
  write('Result massive = ');
  for i := 1 to N do
    write(Arr[i],' ');
  write(#13#10'Kolichesvo izmeneniy znakov = ',kol);
  readln;
end.

большое спасибо)))

тут просто еще задание на массив.

упорядочить m-ую строку по невозрастанию элементов. вывести исходный массив и полученный вектор.

[Vika_0_0]

write(#13#10'Kolichesvo izmeneniy znakov = ',kol);

что означает #13#????

[ByAlex]

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

write(#13#10'Kolichesvo izmeneniy znakov = ',kol);

что означает #13#????

#13#10 - означает перевод каретки, т.е перевод на новую строку.

[Vika_0_0]

большое спасибо)))

тут просто еще задание на массив.

упорядочить m-ую строку по невозрастанию элементов. вывести исходный массив и полученный вектор.