:*дан двумерный массив вывести на экран все элементы n-й строки массива паскаль

Var a: array [1..8,1..8] of integer;           j,k,n: integer; begin   randomize;   for j: =1 to 8 do       begin           for k: =1 to 8 do               begin                   a[j,k]: =random(9)+1;                   write (a[j,k]: 2);               end;           writeln;       end;   repeat       write ('n = ');       readln (n);   until n in [1..8];   for j: =1 to 8 do write (a[n,j]: 3);   writeln;   readln; end.

4: 2

2|0

1|0

0|1

 

4₁₀=100₂

 

10: 2

5|0

2|1

1|0

0|1

 

10₁₀=1010₂

 

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

 

1996₁₀=11111001100 

 

100.1010.11111001100     

var

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

  i: integer;

begin

  for i: =1 to 5 do read(a[i]);

for i: =1 to 5 do write(a[i],' ');

writeln;

for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);

writeln;

end.