Дан номер места в плацкартном вагоне. Определить, какое это место: верхнее или нижнее, в купе или боковое. Программа на пайтоне

смотри скриншот                                    

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

i,n: integer;

s: string;

begin

  randomize;

  for i : =1 to 100 do

  begin

      a[i]: = random(1000)+1000;

      a[i]: =a[i] mod 100;

      a[i]: =a[i] div 10;

      if a[i] mod 2 = 0 then n=n+1;

  end;

  writeln(n);

end.

  держи:

program kk; uses crt; var a: array [1..5,1..5] of integer; i,j: integer;   beginclrscr; randomize; for i: =1 to 5 dobeginfor j: =1 to 5 doa[i,j]: = random(90)+10; end; for i: =1 to 5 dobeginfor j: =1 to 5 do write(a[i,j],' '); writelnend; writeln; writeln; for i: =1 to 5 dobeginfor j: =1 to 5 dobegin  if (a[i,j] > 0) and (a[i,j] mod 3 = 0) thenbeginwriteln(a[i,j],' [',i, ',',j,']'); end; end; end; readkey; end. 

зачем вам такое старье?

1) и что с этим надо сделать. да ворд может создавать таблицы, они имеют какието границы. со связями не стыкалась но наверно и такое есть. может затянуть к примеру таблицу из екселя или аксеса

2)выделили нужные ячейки

  по горизонтали - есть кнопочкина панели(лево, право, по центру)

  по вертикали - пр кнопка-свойства ячеек - выравнивание- по вертикали-выбрать нужный вариант

так же можно обьеденять ячейки, менять направление текста, переносить или не переносить слова на новую строку, и тд