Из одномерного массива удалить элементы кратные 5

@lotos580 · Регистрация: 25.05.2012

Студворк — интернет-сервис помощи студентам

сабж

@qwertyo · 24.04.2013, 22:37

Pascal

Var
  a,b: array[1..1000] of Integer;
  i,j,max,s,n: Integer;
begin
read(n);
s:=1;
for i:=1 to n do
 begin
  read(a[i]);
if (a[i]mod 5<>0)then
 begin
inc(s);
b[s]:=a[i];
write(b[s],' ');
end;
end;
readln;
readln
end.

@lotos580 · 25.04.2013, 08:56 **[ТС]**

тоже не работает.

@Тамила · 25.04.2013, 09:10

Pascal

uses crt;
var
   a:array[1..1000] of integer;
   i,n,j,kol:integer;
begin
   clrscr;
   randomize;
   write('n=');
   read(n);
   for i:=1 to n do
    begin
       a[i]:=random(100);
       write(a[i],'  ');
    end;
   writeln;
   kol:=0;
   for i:=1 to n do
    begin
       if a[i] mod 5 = 0 then
        begin
           for j:=i to n-1 do
            a[j]:=a[j+1];
           kol:=kol+1;
        end;
    end;
   for i:=1 to n-kol do
    write(a[i],'  ');
   readkey;
end.

@qwertyo · 25.04.2013, 18:24

lotos580, У меня все работает!

@lotos580 1 / 1 / 1 Регистрация: 25.05.2012 Сообщений: 63
		1
	Из одномерного массива удалить элементы кратные 5 24.04.2013, 19:36. Показов 5850. Ответов 4 Метки нет (Все метки) сабж 0

@lotos580 1 / 1 / 1 Регистрация: 25.05.2012 Сообщений: 63
	25.04.2013, 08:56 [ТС]	3
	тоже не работает. 0

@qwertyo 25 / 25 / 28 Регистрация: 20.03.2011 Сообщений: 150
	25.04.2013, 18:24	5
	lotos580, У меня все работает! 0

Опции темы