Дан произвольный массив из целых чисел 6*3 . найти в нем миминальный элемент. (составить программу)

Var ar: array[1..6,1..3] of integer; i,j,min: integer; begin; min: =2147483647; randomize; writeln('matrix: '); for i: =1 to 6 do  begin;   writeln;   for j: =1 to 3 do     begin;     ar[i,j]: =random(10)-5;     write(ar[i,j]: 4);     if min> ar[i,j] then min: =ar[i,j];     end;   end; writeln; writeln('result: ',min); end.

const

  a: array[1..6]of longint=(7,4,10,6,5,3);

var

  i: longint;

begin

for i: =1 to 6 do  write(9.8*a[i]*1200,' ');

writeln;

end.

 

100010,011101=42,35   (вос. сис.)

10010,011101=22,1d   (шест. с.)

 

  111 111 111 000 001=77701(в.с)

  0111 1111 1100 0001(добавляем 0)=7fc1 (ш.с.)

 

0,000110101=0,065(в.с) (доб. 00)

0,0110101=0,35(ш.с.) 

 

0,11 100 110 101=0,3465(в.с.)

0,111 0011 0101=0,735(ш.с.)