Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

в паскале Сформировать массив из положительных элементов и найти их произведение

Ответ оставил Гость

uses crt;
var a:array[1..10] of integer;
i,s:integer;
begin
writeln(Исходный массив:);
for i:=1 to 10 do begin
a[i]:=random(10-1+1)+1;
write(a[i]:4);
end;
s:=1;
for i:=1 to 10 do begin
s:=s*a[i];
end;
writeln;
writeln(Произведение элементов: ,s);
end.

В массиве 10 элементов, которые заданы случайно в пределах от 1 до 10.