Задачи на массив (паскаль): Массив (подсчёт суммы) а) Дан массив целых чисел. Найти сумму нечётных элементов. б) Дан массив. Определить максимальный и минимальный элемент.

var a:array[1..1000] of integer; i,s,n:integer; begin write ('Введите размер массива n= ') ; readln(n); for i:=1 to n do a[i] :=random(50)-30; for i:=1 to n do write(a[i],' '); writeln; s:=0; for i:= 1 to n do if a[i] mod 2 <>0 then s :=s+a[i]; writeln('Сумма нечетных элементов массива = ', s); end. 2.  var a:array[1..1000] of integer; i,max,min,n:integer; begin write ('Введите размер массива n= ') ; readln(n); for i:=1 to n do a[i] :=random(50)-30; for i:=1 to n do write(a[i],' '); writeln; max:=-32768; min:=32767; for i:= 1 to n do  begin if a[i] >max then max:=a[i]; if a[i]