Информатика, опубликовано 2018-08-22 23:26:08 by Гость
Составить программу. Дан массив,состоящий из 5 элементов А(5).(значение элемента меньше 10).Найти произведение элементов данного массива
Ответ оставил Гость
Var
m : array[1..5] of Byte;
i : Byte;
R : Longint;
Begin
R:=1;
For i:=1 to 5 do
Begin
Readln(m[i]);
R:=R*m[i];
end;
Writeln(Произведение = ,R);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на