Линейный алгоритм в трехзначном числе поменяли местами цифры в разряде десятков и единиц. какое число получилось? в qbasic ( блок схему и по возможности программу )

program cikli;

unit math;

var

  i,n,s,p: integer;

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

begin

  writeln('исходный массив: ');

  for i: =1 to 20 do begin

  a[i]: =randomrange(1,20);

  writeln(' элемент ',i,' =  ',a[i]);

  end;

  writeln('сумму и произведения скольки первых чисел вы хотите посчитать? ');

  readln(n);

  s: =0; p: =1;

//цикл с параметром

  for i: =1 to n do begin

  s: =s+a[i];

  p: =p*a[i];

  end;

writeln('цикл с параметром');

writeln('сумма первых ',n,' чисел = ',s);

writeln('произведения первых ',n,'чисел = ',p);

 

//цикл с предусловием

i: =1; p: =1; s: =0;

while i< > n do begin

  s: =s+a[i];

  p: =p*a[i];

  i: =i+1;

end;

writeln('цикл с предусловием');

writeln('сумма первых ',n,' чисел = ',s);

writeln('произведения первых ',n,'чисел = ',p);

 

//цикл с постусловием

i: =0; s: =0; p: =1;

repeat

  i: =i+1;

  s: =s+a[i];

  p: =p*a[i];

until i=n;

writeln('цикл с постусловием');

writeln('сумма первых ',n,' чисел = ',s);

writeln('произведения первых ',n,'чисел = ',p);

end.

Const n=5; var a : array[1..n] of integer;       k,i : integer; begin randomize;   for i: =1 to n do   begin   a[i]: =random(26)-10;   write(a[i],' ');   end; writeln;   writeln('элементы равные 1 имеют номера: '); for i: =1 to n do  if a[i]=1 then write(i: 3); writeln; writeln('индексы нечетных элементов: '); for i: =1 to n do  if a[i] mod 2< > 0 then write(i: 3); writeln; k: =0; for i: =1 to n do  if a[i]> 0 then k: =k+1; writeln('количество положительных элементов=',k); end.