Задание 2 Вариант 2 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

2. Напишите программу. В одномерном массиве A[1..N] содержится большое количество 0. Переформируйте массив так, чтобы сначала шли элементы, отличные от 0, а затем — нулевые.

Запишите текст программы.

program s5_v2_2;

const

n = 20;

var

a: array[1..n] of integer;

i, k, c: integer;

begin

writeln(taskВвод task);

//массив из 0,1,2 по желанию можно сделать любой с 0

for i := 1 to n do

a[i] := random(3);

//вывод исходного массива

for i := 1 to n do

write(a[i], task task);

writeln;

k := 1;

for i := 1 to n do

if (a[i] 0) then //если встретился не 0

if(i k) then

begin //перестановка

c := a[i];

a[i] := a[k];

a[k] := c;

k := k + 1

end

else k := k + 1;//если i и k совпадают

writeln(taskВывод массиваtask);

for i := 1 to n do

write(a[i], task task)

end.