Одномерные массивы Опции

[zmyrki]

хелп!

Подсчитать число нулевых компонентов целого массива из 10 элементов. Если нулевых элементов окажется больше 2, то поменять местами нулевые элементы с первыми элементыми массива, отличными от нуля.

[Bard]

Ну решение этой задачи на Паскале выглядет примерно вот так:
это решение "в лоб"

var
 b,l,j,n,i:integer;
 ar:array [1..10] of integer;

begin
 n:=10; j:=0; l:=0;
 for i:=1 to n do read(ar[i]);
 writeln;
 for i:=1 to n do
  if ar[i]=0 then inc(j);
 if j>2 then
  for i:=1 to n do
   if ar[i]=0 then
    begin
     inc(l);
     if ar[l]<>0 then
      begin
       b:=ar[l];
       ar[l]:=ar[i];
       ar[i]:=b;
      end;
    end;
 writeln('Massiv posle izmeneniya: ');
 for i:=1 to n do write(ar[i],' ');
end.

надеюсь помог

Сообщение отредактировано: Bard - 18.11.2007 22:32