Одномерный массив состоит из 5 элементов. массив заполняется случайными числами из диапазона от 0 до 20. выведите массив на экран в строчку и найдите произведение элементов массива.
//PascalABC.Net 3.2 begin write ('Первоначальный случайный массив: '); var a:=arrrandom (5, -100, 100); a.Println; var x:=1; for var i:=0 to 4 do x*=a[i]; write ('Произведение элементов массива: ', x); end.
begin
write ('Первоначальный случайный массив: ');
var a:=arrrandom (5, -100, 100); a.Println;
var x:=1;
for var i:=0 to 4 do x*=a[i];
write ('Произведение элементов массива: ', x);
end.