Задание 2 Вариант 2 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение 2. Напишите программу. В одномерном массиве A[1..N] содержится большое количество 0. Переформируйте массив так, чтобы сначала шли элементы, отличные от 0, а затем —...](/reshebniki/informatika/11/WBbosova/images1/sam5/2/2.png "Изображение ответа 2. Напишите программу. В одномерном массиве A[1..N] содержится большое количество 0. Переформируйте массив так, чтобы сначала шли элементы, отличные от 0, а затем —...")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 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('Ввод ');
//массив из 0,1,2 по желанию можно сделать любой с 0
for i := 1 to n do
a[i] := random(3);
//вывод исходного массива
for i := 1 to n do
write(a[i], ' ');
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('Вывод массива');
for i := 1 to n do
write(a[i], ' ')
end.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
