Дан массив целых чисел из 12 элементов. Найти произведение элементов лежащих в промежутке [-2,10].
Дан массив целых чисел из 12 элементов. Найти произведение элементов лежащих в промежутке [-2,10].
Гость
Ответ(ы) на вопрос:
Гостьconst n = 12;
var
f: boolean;
i, p: integer;
a: array [1..n] of integer;
begin
randomize;
writeln('Исходный массив');
for i := 1 to n do begin
a[i] := Random(21)-10;
write(a[i], ' ');
end;
p := 1;
for i := 1 to n do
if (a[i] >= -2) and (a[i] <= 10) then begin
f := true;
p := p * a[i];
end;
writeln;
write('Произведение = ');
if not f then writeln(0)
else writeln(p);
end.
Не нашли ответ?
Похожие вопросы