Question

pascal, убрать из массива 0(код на фото)
на индексах где нет чисел, ставятся нули. как убрать эти нули?

мне дали подсказку что надо добавить два счётчика, но я не понимаю.​

Answer 1

Ответ:

Коды для удаление всех нолей:

1. const n=10;
2. var
3. a: array [1..10] of Integer;
4. i, k: Integer;
5. begin
6. Randomize;
7. for i:=1 to n do a[i]:=-2+Random(5);
8. Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
9. k:=0;
10. for i:=1 to n do
11. if a[i]<>0 then begin
12. Inc(k); a[k]:=a[i];
13. end;
14. Write('A''='); for i:=1 to k do Write(' ',a[i]); WriteLn;
15. end.