2. Найти произведение элементов одномерного массива, состоящего из n элементов. Элементы вводятся с клавиатуры. (решение паскаль) Program proisveden;
Var a: array[1..100] of integer;
i, n, p: integer;
Begin
Write (‘Сколько элементов? ’); Readln (n);
p:=1;
For i:=1 to n do
begin
write (‘введите число’); readln (a[i]);
p:=p*a[i];
end;
writeln(‘произведение элементов равно: ‘,p);
End.

FOXI66666    2   07.12.2020 10:25    2