Информатика, опубликовано 2018-08-22 23:28:53 by Гость
ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО. Задача:Сформировать массив из 9 произвольных чисел.Найти сумму и произведение элементов с нечетными индексами. Pascal ABC
Ответ оставил Гость
Const n=9;
var a:array [1..n] of integer;
i,s,p:integer;
begin
p:=1;
for i:=1 to n do begin
a[i]:=random(21)-10;
if i mod 2=1 then
begin
s:=s+a[i];
p:=p*a[i];
end;
write (a[i]:4);
end;
writeln;
writeln (Сумма=,s);
writeln (произведение=,p);
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на