---

Program VvodVruch;
const n=4; m=3;
var a: array [1..n, 1..m] of integer;
i, j: integer;
begin
  for i:=1 to n do
  begin // организуем два вложенных цикла, для
    for j:=1 to m do
    begin
      readln(a[i,j]); // считывания значений и
    end;
  end;
  
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write(a[i,j]:3); // вывода их на экран
    end;
    writeln;
  end;
end.

Program SummaProizv;
const max = 100;
var
  arr: array[1..max] of real;
  n: integer;
  sum, op: real;
  i: integer;
begin
  write('Количество элементов: ');
  readln(n);
  write('Укажите значения: ');
  for i := 1 to n do
    read(arr[i]);
  
  sum := 0;
  for i := 1 to n do
    sum := sum + arr[i];
    
  op := 1;
  for i := 1 to n do
    op := op * arr[i];
    
  writeln('Сумма элементов: ', sum:10:2);
  writeln('Произведение элементов: ', op:20:2);
end.

Program SortPuzyrok;
const n=20;
var a: array [1..n] of integer;
i, j, k, prom: integer;
begin
  for i:=1 to n do
  begin
    a[i]:=random(101); // вводим линейный массив
    write(a[i], ' ');
  end;
  writeln;
  
  for i:=2 to n do // начиная со второго элемента массива,
    for j:=1 to n do // сравниваем значения последующего и
      if a[i] < a[j] then // предыдущего элементов. Если следующее
      begin // больше, то используя промежуточную
        prom := a[j]; // переменную меняем их значения
        a[j] := a[i];
        a[i] := prom;
      end;
      
  for i:=1 to n do
    write(a[i], ' '); // распечатываем массив
end.


Program MaxElement;
const n=100;
var a: array [1..n] of integer;
i, j, p, max: integer;
begin
  for i:=1 to n do
  begin
    a[i]:=random(101); // вводим массив
    write(a[i], ' ');
  end;
  writeln;
  
  max := a[1]; // считаем, что первый элемент массива MAX
  p := 1; // промежуточной переменной присваиваем знач. 1
  for j := 2 to n do
  begin // проверяем элементы массива,
    if a[j] > max then // если они больше max, тогда
    begin
      max := a[j]; // присваиваем переменной max новое значение
      p := j;
    end;
  end;
  writeln('Max элемент = ', max, ', Его No = ', p);
end.


Program summa;
Var
  a, b, c: array [1..100] of integer;
  I, n: byte;
Begin
  Write('введите размерность массивов: ');
  Readln(n);
  
  For i:=1 to n do
    Readln(a[i]); { ввод массива а }
    
  For i:=1 to n do
    Readln(b[i]); { ввод массива b }
    
  For i:=1 to n do
    c[i]:=a[i]+b[i]; { вычисление суммы массивов }
    
  For i:=1 to n do
    write(c[i], ' '); { вывод массива с }
End.