1. дан одномерный массив, напечатать номера элементов, значения которых находятся в заданном диапазоне (a,b). 2. дан массив из n элементов. определить сумму тех, которые нечетны и отрицательны. 3. в одномерном массиве a(10) определить кол-во и произведение элементов, которые больше 5. 4. дан массив из n элементов. определить кол-во элементов, кратных 4. 5. в одномерном массиве a(10) найти наименьший элемент.

Program zadacha3;vari,kolvo,proizv: integer;a: array [1..10] of integer;
beginfor i:=1 to 10 do begin a[i]:=random(10); writeln(a[i]); end;kolvo:=0;proizv:=1;for i:=1 to 10 do beginif a[i]>5 then begin kolvo:=kolvo+1; proizv:=proizv*a[i]; end;end;
writeln('kolvo chisel > 5 = ', kolvo);writeln('proiz chisel > 5 = ', proizv);
end.