ПАСКАЛЬ Дан одномерный массив A[10]. Элементы массива – это случайные числа большие 0.
Написать программу, которая будет находить произведение элементов массива,
лежащих в интервале [20, 70].
Написать программу, которая будет находить произведение элементов массива,
лежащих в интервале [20, 70].
More Questions From This User See All
Answers & Comments
Ответ:
var i,s: integer;
begin
s:=1;
randomize();
for i:=1 to 10 do
begin
A[i]:=random(100);
write(A[i],' ');
if (A[i]>=20) and (A[i]<=70) then
s:=s*A[i];
end;
writeln();
writeln('Произведение элементов массива: ',s);
end.