Восстанови хронологическую последовательность. появление первых лазерных изобретение магнитофона демонстрация первого изобретение фотографии первая запись звука с фонографа_

1. для цикла for var   x,n,p: longint;   i: integer; begin   readln (x,n);   p: =1;   for i : = 1 to n do       p: =p*x;   writeln(x,' в степени ',n,' равно ',p ); end. 2. для цикла while var   x,n,p: longint;   i: integer; begin   readln (x,n);   p: =1;   i: =1;   while i< =n do begin       p: =p*x;       i: =i+1;   end;   writeln(x,' в степени ',n,' равно ',p ); end. 3. для цикла repeat var   x,n,p: longint;   i: integer; begin   readln (x,n);   p: =1;   i: =1;   repeat       p: =p*x;       i: =i+1;   until i> n;   writeln(x,' в степени ',n,' равно ',p ); end.

Const n=4; m=5; var a: array [1..n,1..m] of integer;   i,j,min,imin,jmin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do begin   a[i,j]: =random(21)-10;   write(a[i,j]: 6);   end; writeln; end; min: =a[1,1]; imin: =1; jmin: =1; for i: =1 to n do   for j: =1 to m do   if a[i,j]< min then     begin min: =a[i,j]; imin: =i; jmin: =j; end; writeln('min=a[',imin,',',jmin,']=',min); end. пример: исходный массив:       5     8     2     -5     -4       1   -10     9     1     -4       8     2     -6     -4     -4       8     7     3     2     2 min=a[2,2]=-10