95

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

unik25 10 марта 2023

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

категория: информатика

85

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.

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

Знаете другой ответ?
Другие вопросы по информатике

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...