• Из массива C получить массив K, удалив из массива C все нулевые элементы

Ответы 1

  • var ar:array[1..10] of integer;ar2:array[1..10] of integer;i,k:integer;begin;randomize;writeln('First array:');for i:=1 to 10 do begin;  ar[i]:=random(10);  write(ar[i]:4);  if ar[i]<>0 then   begin;    inc(k);    ar2[k]:=ar[i];   end; end;writeln;writeln('Final array:');for i:=1 to k dowrite(ar2[i]:4);end.
    • Автор:

      monty
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years