Регистрация
Ульянатв
24.05.2023 15:14
Информатика
Есть ответ 👍

Информатика, паскаль напишите программу, перемещающую все нулевые элементы в конец массива 80 очков,

221
261
Посмотреть ответы 2

Ответы на вопрос:

Znv250605
Znv250605
4,7(43 оценок)

const n = 10;

var

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

  i,j,h: integer;

begin

randomize;

for i : = 1 to n do

  begin

    mas[i] : = random(3);

    write(' ',mas[i],' ');

  end;

  writeln();

for i : = 1 to n - 1 do

  for j : = 1 to n - i do

    if(mas[j] = 0) then

      begin

        h : = mas[j];

        mas[j] : = mas[j + 1];

        mas[j + 1] : = h;

      end;

for i : = 1 to n do

    write(' ',mas[i],' ');

end.

Grelil55
Grelil55
4,4(18 оценок)

Объяснение:

Опщрдпддиллпдп

Популярно: Информатика