Марин
7 год назад
1. Дан одномерный массив, напечатать номера элементов, значения которых находятся в заданном диапазоне (a,b).
2. Дан массив из N элементов. Определить сумму тех, которые нечетны и отрицательны.
3. В одномерном массиве A(10) определить кол-во и произведение элементов, которые больше 5.
4. Дан массив из N элементов. Определить кол-во элементов, кратных 4.
5. В одномерном массиве A(10) найти наименьший элемент.
ОТВЕТЫ
Haritonovich
Jul 17, 2019
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]gt;5 then begin kolvo:=kolvo+1; proizv:=proizv*a[i]; end;end;
writeln(kolvo chisel gt; 5 = , kolvo);writeln(proiz chisel gt; 5 = , proizv);
end.
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]gt;5 then begin kolvo:=kolvo+1; proizv:=proizv*a[i]; end;end;
writeln(kolvo chisel gt; 5 = , kolvo);writeln(proiz chisel gt; 5 = , proizv);
end.
181
