Дан массив А(5). Найти произведение отрицатнльных элементов.
5-9 класс
|
P:=1;
KL:=0;
procedure proizvedenie(A)
begin
for i:=1 to 5 do
if A[i]<0 then
begin
P:=P*A[i];
KL:=KL+1;
end;
if KL=0 then
writeln('Отрицательных элементов НЕТ');
else writeln('Произведение отриц элементов =' P);
end;
Другие вопросы из категории
Dat: array[1..7] of integer;
k, day: integer;
begin
Dat[1] := 9; Dat[2] := 11;
Dat[3] := 10; Dat[4] := 13;
Dat[5] := 8; Dat[6] := 5;
Dat[7] := 11;
day := 0;
for k := 1 to 7 do begin
if Dat[k] <=10 then
day := day+1;
end;
writeln(day);
end.
и составляют b руб(в месяц).Рост цен ежемесячно увеличивает расходы на 3%,составьте программу расчета необходимой суммы денег,которую нужно единовременно попросить у родителей,чтобы можно было прожить 10 месяцев,используя эти деньги.
Читайте также
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.