Вариант 1
1. напишите программу. одномерный массив а[1..n] заполнен
0 и 1, расположенными в произвольном порядке. перефор-
мируйте массив так, чтобы сначала шли элементы, равные
0, а затем — 1. предусмотрите вывод исходного и перефор-
мированного массивов на экран.
запишите текст программы:
- - - - - - - - - - - - - -
-
- - - - - - - - - - -

var a: array[1..1] of integer; i,k,i1,n: int64;

  begin

read(n);

  randomize;

  for i: =1 to n do

      a[i]: =random(2);

  writeln('массив до переформировки: ');

    for i: =1 to n do  

      write(a[i],' ');

  writeln;

for i1: = 1 to n do

  for i: =1 to n-1 do

    if a[i]> a[i+1] then begin k: =a[i]; a[i]: =a[i+1]; a[i+1]: =k; end;

      writeln('массив после переформировки: ');

    for i: =1 to n do  

      write(a[i],' ');

      end.

это латинский алфавит. латиница.

1)

var

i,k: integer;

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

begin

k: =0;

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

if a[i] mod 2=0 then k: =i;

end;

if k> 0 then

begin

for i: =k to 13 do a[i]: =a[i]+1;

a[14]: =0;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.

2)

var

i,k: integer;

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

begin

for i: =1 to 14 do

begin

a[i]: =random(46)-15;

write(a[i]: 3);

end;

for i: =1 to 7 do

begin

k: =a[i];

a[i]: =a[i+7];

a[i+7]: =k;

end;

writeln;

for i: =1 to 14 do write(a[i]: 3);

end.