Домашнее задание по Информатике Переделать программу, чтобы она находила произведение элементов массива
program n;
var i,s: integer;
a:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(2,5);
s:=s+a[i];
end;
writeln('s = ', s);
for i:=1 to 10 do
write ('a[',i,']=',a[i],' ');
end.
Домашнее задание по Информатике Переделать программу, чтобы она находила произведение элементов массива
program n;
var i,s: integer;
a:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(2,5);
s:=s+a[i];
end;
writeln('s = ', s);
for i:=1 to 10 do
write ('a[',i,']=',a[i],' ');
end.
program n;
var i,s: integer;
a:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
a[i]:=random(2,5);
s:=s+a[i];
end;
writeln('s = ', s);
for i:=1 to 10 do
write ('a[',i,']=',a[i],' ');
end.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
program n;
var i,s: integer;
a:array [1..10] of integer;
begin
s:=1;
for i:=1 to 10 do
begin
a[i]:=random(2,5);
s:=s*a[i];
end;
writeln('s = ', s);
for i:=1 to 10 do
write ('a[',i,']=',a[i],' ');
end.