1)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
write('Введите элементы массива: ');
for i := 1 to 10 do read(A[i]);
for i := 1 to 10 do d := d * A[i];
writeln('Произведение элементов: ' + d);
end.
2)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
randomize();
for i := 1 to 10 do A[i] := random(1,10);
for i := 1 to 10 do begin
if A[i] mod 2 = 0 then d := d * A[i];
end;
writeln('Произведение элементов: ' + d);
end.
3)
var
d, i: integer;
A: array[1..10] of integer;
begin
d := 1;
randomize();
for i := 1 to 10 do A[i] := random(1,10);
for i := 1 to 10 do begin
if i mod 2 = 1 then d := d + A[i];
end;
writeln('Сумма элементов: ' + d);
end.
