Переведи число 20238 в десятичную систему счисления.
ответ: 20238= тут две ячейки

program nn;

uses crt;

var a: array [1..20] of real;

t: real;

i,n,min: integer;

begin

    {ввод последовательности, это самостоятельно}

    min : = 1;

    for i : = 1 to 20 do

    begin

          if  a[i] < a[min] then

                min : = i;

    end;

    t : = a[min];

    a[min] : = a[20-n];

    a[20-n] : = t;

end.

2.поиск текста на странице

4.изменение кодировки текста на странице

8.изменение размера шрифта для текста страницы

чередование четных не чётных

var a: array[1..100] of integer;

i,ms,ps: integer;

begin

  {vvod massiva a}

  for i: = 1 to 100 do

    if a[i] > 0 then ps: =ps+a[i]

    else ms: =ms+a[i];

  writeln(ps,ms);

end.