Question

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

Answer 1

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.