1. Дан одномерный массив, напечатать номера элементов, значения которых находятся в заданном диапазоне (a,b). 2. Дан массив из N элементов. Определить сумму тех, которые нечетны и отрицательны. 3. В одномерном массиве A(10) оп...
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.
Не нашли ответ?
Похожие вопросы