Задача №1
Заполнить массив размерностью 20 случайным образом числами от 0 до 150. Найти сумму максимального и минимального элементов массива.

Задача №2
Заполнить матрицу размером 5х5 случайными числами от 0 до 200. Найти сумму элементов массива побочной диагонали.

1)

var a:array[1..20] of integer; max,min,n,i:integer;begin

randomize;n:=20;for i:=1 to n do a[i]:=random(150);beginmin:=a[1];for i:=1 to n do if a[1]>a[i] then min:=a[i];end;beginmax:=a[1];for i:=1 to n do if a[1]<a[i] then max:=a[i];end;writeln(min);writeln(max);end.

2)

const n=5;var x: array[1..n,1..n] of integer; i,j,s: integer;beginrandomize;writeln('Matrisa:');for i:=1 to n dobegin for j:=1 to n do begin x[i,j]:=random(200); write(x[i,j]:5); end; writelnend;j:=8;for i:=1 to n dobegin j:=j-1; s:=s+x[i,(n+1-i)];end;writeln('Summa: ',s);end.