СРОЧНА УЖЕ НАДО ЗАВТРО СДАВАТЬ ТЕТРАТЬ написать прогу которая находит произведение элемента массива
СРОЧНА УЖЕ НАДО ЗАВТРО СДАВАТЬ ТЕТРАТЬ написать прогу которая находит произведение элемента массива
Гость
Ответ(ы) на вопрос:
Гостьconst N=10;
var a: array [0..N] of integer;
i, m: integer;
begin
for i := 0 to N do
a[i] := random(1000) - 500; { Надо же что-то в массив закинуть =) }
for i := 0 to N do
m := m + a[i];
writeln(m);
end.
ГостьVar
mas:array[10] of integer;
i,pr:integer;
begin
pr:=1;
for i:=1 to 10 do
pr=pr*mas[i];
writeln('Произведение = ',pr);
end.
-----------------------------------------------
с Объявлением массива точно не помню,посмотри сам как он объявляется,я написал примерно,вроде размерность не много по другому указывается
Не нашли ответ?
Похожие вопросы