Задание:
Pascal abc. Дан одномерный массив (вводится с клавиатуры). Преобразовать массив таким образом, чтобы сначала располагались все элементы равные 0, а потом все остальные.
Решение:
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.
Знаете другой ответ?