Написать текст программы на языке паскаль
вычислить значения функций используя оператор​

сумма=18

семерки нету

или тебе программу написать?

varb: array [1..8] of integer; r,q: integer; begin  for r: =1 to 8 do  begin  q: =0;   read(b[r]);   end;   for r: =1 to 8 do  if b[r] mod 2=1 then q: =q+b[r];   writeln;   writeln('сумма нечетных чисел равна ',q); end.

на языке паскаль:

const n=5; - объявляем константу   n, в которой будет храниться размер двумерного массива

var a: array [1..n,1..n] of integer; -объявляем массив

min: integer; -объявление переменной где будет храниться минимальный элемент

i,j: byte; -объявляем две переменные для цикла

begin - тело программы 

for i: =1 to n do - цикл по строкам

for j: =1 to n do begin - цикл по столбцам

readln(a[i,j]); - вводим элемент в массив

if (i=1) and (j=1) then min: =min: =a[i,j]; - здесь происходит  присваивание первого  элемента для сравнения с последующими 

if min> a[i,j] then min: =a[i,j]; - проверяем на условие минимума, если переменная min   больше элемента массива, то присваиваем ей значение массива

end;

writeln('минимальный элемент двумерного массива=',min); - вывод минимального элемента

end.

создаём два массива чисел, упорядочиваем числа в массивах, сравниваем и выводим.