Pascal abc. Дан одномерный массив (вводится с клавиатуры)

Question

Pascal abc. Дан одномерный массив (вводится с клавиатуры). Преобразовать массив таким образом, чтобы сначала располагались все элементы равные 0, а потом все остальные.

Answer 1

85

avr495

01 сентября 2022

Program Massiv; Const n=5; Var a: Array [1… n] of Integer; tmp, c, i: Integer; BeginWriteLn ('Введите ', n, ' чисел через пробел'); For i: =1 To n DoRead (a[i]); c: =1; For i: =1 To n DoIf a[i]=0 ThenBegintmp: =a[c]; a[c]: =a[i]; a[i]: =tmp; c: =c+1; End; WriteLn ('Результат: '); For i: =1 To n DoWrite (a[i], '); ReadLn; End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: