Информатика, опубликовано 2018-08-22 23:37:19 by Гость
Сформировать массив из 10 целочисленных элементов (от 1 до 15) и вывести на экран. Найти произведение всех элементов массива.
Ответ оставил Гость
Var
a: array [1..10] of byte;
p: integer;
i: byte;
begin
p := 1;
writeln(Массив:);
Randomize;
for i := 1 to 10 do
begin
a[i] := Random(15) + 1;
write(a[i]:4);
p := p * a[i];
end;
writeln;
write(Произведение = , p:4);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на