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

var a:array[1..1000] of integer;i,s,n:integer;beginwrite ('Введите размер массива 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 doif 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;beginwrite ('Введите размер массива 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 beginif a[i] >max then max:=a[i];if a[i] <min then min:=a[i];end;writeln('Максимальный  элемент массива = ', max);writeln('Минимальный  элемент массива = ', min);end.