Составить блок схему хотя бы по процедуре uses crt; type mass=array[1..10,1..10] of integer; procedure zam(n, j: integer; var a: mass; m, k,l: integer); var i, f: integer; begin m: =a[1,j]; for i: =1 to n do if (m> a[i, j])or(m=a[i, j]) then begin m: =a[i, j]; k: =i; l: =j; end; writeln(m); if m< > a[1,j] then begin f: =a[1,j]; a[1,j]: =a[k, l]; a[k, l]: =f; end; end; var a, b: mass; i, j,k, l,n, m: integer; begin randomize; readln(n); for i: =1 to n do begin writeln; for j: =1 to n do begin a[i, j]: =random(9)+1; write(a[i, j]: 3); end; end; writeln; for j: =1 to n do zam(n, j,a, m,k, l); for i: =1 to n do begin writeln; for j: =1 to n do write(a[i, j]: 3); end; writeln; for i: =1 to n do begin writeln; for j: =1 to n do begin b[i, j]: =random(9)+1; write(b[i, j]: 3); end; end; writeln; for j: =1 to n do zam(n, j,b, m,k, l); for i: =1 to n do begin writeln; for j: =1 to n do write(b[i, j]: 3); end; writeln; end.

program xxx;

  var i, k, c, e : integer

begin

  k: =0;

  for i: =100 to 999 do

      begin

          c: = i div 100;

          e: =i mod 10;

          if c = e then k: =k+1

    end;

  writeln('кол-во палиндромов =', k);

  readln

end.

если выполнить для стандартного алфавита с ё, й итд

получится

а-1 б-2 в-3 г-4 д-5 е-6 ё-7 ж-8 з-9 и-10 й-11 к-12 л-13 м-14 н-15 о-16 п-17

р-18 с-19 т-20 у-21 ф-22 х-23 ц-24 ч-25 ш-26 щ-27 ъ-28 ы-29 ь-30 э-31 ю-32 я-33

слово компьютер

к=12 -8=4 (д)

о=16-5=11(й)

м=14+1=15(н)

п=17+8=25(ч)

ь=30-23=7(ё)

ю=32-13=19(с)

тер (не меняем)

дйнчёстер

но я думаю делалось под алфавит без "ё" и "й" возможно в нем получится "винчестер"

у васи флешка желтая. и больше флешки пети. значит, у пети или 4гб или 8гб.

егору не понравилась красная, значит красная у пети, а у егора зеленая.

суммарное колличество флешок васи и пети меньше, чем у егора,значит у егора флешка на 16гб, зеленая. у васи 8гб,желтая. и у пети 4гб, красная.

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.