Предмет: Информатика,
автор: radislav002
Найти произведение элементов в массиве из 10 элементов заданных используя рандом от 1 до 100
Паскаль
Ответы
Автор ответа:
1
var
a: array[1..10] of integer;
i,s: integer;
begin
s:=1;
for i:= 1 to 10 do
begin
a[i]:=random(1,100);
s:=s*a[i];
end;
writeln(s);
end.
Похожие вопросы
Предмет: Русский язык,
автор: dependentgirl
Предмет: Русский язык,
автор: Первоклассница
Предмет: Математика,
автор: MrMaysam
Предмет: Физика,
автор: Kereshka
Предмет: Алгебра,
автор: igeneralow8