Подготовить реферат на одну из тем: •процесс получения цифровых фотографий
•основные этапы создания цифрового видеофильма
дам

// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(20,-99,99); a.Println;
  var (imin,imax):=(a.IndexMin,a.IndexMax);
  Writeln('Минимальный элемент ',a[imin],', максимальный ',a[imax]);
  Swap(a[imin],a[imax]); a.Println; // меняем местами max и min
  Swap(a[0],a[a.Length-1]); a.Println // меняем местами крайние
end.

Пример
-45 78 -68 -89 -95 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -47
Минимальный элемент -95, максимальный 78
-45 -95 -68 -89 78 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -47
-47 -95 -68 -89 78 39 55 54 46 69 4 -36 -81 61 47 -76 0 -35 65 -45

//Pascal ABC.NET v3.0 сборка 1111

Const
 n=5;

Var
 ma:array[1..n,1..n] of integer;
 i,j:integer;
begin
 writeln('Matrix reading...');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
      readln(ma[i,j]);
  end;
 writeln('First matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     begin
      write(ma[i,j]:4);
      if (ma[i,j]<-8) or (ma[i,j]>6) then ma[i,j]:=sqr(ma[i,j]);
     end;
  end;
 writeln;
 writeln('Final matrix:');
 for i:=1 to n do
  begin
   writeln;
    for j:=1 to n do
     write(ma[i,j]:4);
  end;
end.

Пример ввода:
1
2
3
4
5

6
7
8
9
1

2
3
4
5
6

7
8
9
1
2

3
4
5
6
7
Пример вывода:
First matrix:
   1   2   3   4   5
   6   7   8   9   1
   2   3   4   5   6
   7   8   9   1   2
   3   4   5   6   7
Final matrix:
   1   2   3   4   5
   6  49  64  81   1
   2   3   4   5   6
  49  64  81   1   2
   3   4   5   6  49