pascal, убрать из массива 0(код на фото)
на индексах где нет чисел, ставятся нули. как убрать эти нули?
мне дали подсказку что надо добавить два счётчика, но я не понимаю.
Приложения:
![](https://st.uroker.com/files/b84/b842ac2aeed80e14ec097f7b7e8583c5.jpg)
aalzhanov2010:
Всё:3
Ответы
Ответ дал:
1
Ответ:
Коды для удаление всех нолей:
- const n=10;
- var
- a: array [1..10] of Integer;
- i, k: Integer;
- begin
- Randomize;
- for i:=1 to n do a[i]:=-2+Random(5);
- Write('A ='); for i:=1 to n do Write(' ',a[i]); WriteLn;
- k:=0;
- for i:=1 to n do
- if a[i]<>0 then begin
- Inc(k); a[k]:=a[i];
- end;
- Write('A''='); for i:=1 to k do Write(' ',a[i]); WriteLn;
- end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад