Версия для печати темы

Автор: zmyrki 18.11.2007 21:30

хелп!

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

Автор: мисс_граффити 18.11.2007 23:12

и в чем нужен хелп? написать все за тебя?

Автор: Гость 19.11.2007 0:55

ну если не сложно, просто задали, а я не бум-бум в паскале

Автор: Bard 19.11.2007 2:30

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

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.

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

Автор: Гость 19.11.2007 2:35

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