Предмет: Информатика,
автор: SomeHappyMan
Pascal. Составить программу нахождения произведения всех элементов массива A[1..20], содержащего случайные числа от 1 до 10
Ответы
Автор ответа:
1
//fpc
const
MAX = 20;
var
A: array [1 .. MAX] of byte;
i: byte;
mult: extended;
BEGIN
randomize;
mult := 1;
for i := 1 to MAX do
begin
A[i] := random(10) + 1;
mult := mult * A[i];
end;
write('Произведение эл. массива = ');
writeln(mult:0:0);
END.
Похожие вопросы
Предмет: Английский язык,
автор: gadzhimuradova10
Предмет: Математика,
автор: MadiHale
Предмет: Математика,
автор: nikolajgasanov160
Предмет: Литература,
автор: sonn17
Предмет: История,
автор: katyaloginova1