Паскаль

1) В одномерном массиве A (10) найти среди отрицательный элементов

максимальный.

2) Дан массив из N элементов. Определить количество элементов, которые являются четными числами.

1.

var

A: array [1 ... 10] of integer;

max, i: integer;

begin

for i:=1 to 10 do / / заполнение массива

A[i] : = random (100) - 50;

max : = - 51;

for i:=1 to 10 do / / обработка массива

if (A[i] max) then

max : = A[i];

writeln (max) ;

end.

2.

var

A: array [1 ... 1000] of integer;

kol, i, N: integer;

begin

readln (N) ;

for i:=1 to N do / / заполнение массива

A[i] : = random (100) - 50;

for i:=1 to N do / / обработка массива

if A[i] mod 2 = 0 then

inc (kol) ;

writeln (kol) ;

end.