Задачи на массив (паскаль) :

Массив (подсчёт суммы)

а) Дан массив целых чисел. Найти сумму нечётных элементов.

б) Дан массив. Определить максимальный и минимальный элемент.

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]
end;

writeln ('Максимальный элемент массива = ', max) ;

writeln ('Минимальный элемент массива = ', min) ;

end.