Question

Вводятся m чисел , если ввели больше 10 то найти их сумму , если меньше 10 то найти произведение. Првавильно составлена? var a,m,s,p:integer; begin; read(m); p:=1; s:=0; for 1 to m do; begin; read(a); s:=s+a; p:=p*a; end; if m>10 then write (s); if m < 10 then write (p) ; end.

Answer 1

Var a,m,s,d:integer;
begin
readln(m);
if m>=10 then 
begin
s:=0;
d:=0;
end;
if m<10 then 
begin
s:=1;
d:=1;
end;
for m:=1 to m do
begin
readln(a);
if s=0 then d:=d+a;
if s=1 then d:=d*a;
end;
writeln(d);
end.

Answer 2

Да, данная программа правильно составлена.

Она начинается с объявления переменных var a, m, s, p: integer;, где a - текущее введенное число, m - количество чисел, s - сумма чисел, p - произведение чисел.

Затем считывается число m - количество чисел, которые будут вводиться.

Далее инициализируются переменные p и s, присваивая им значения 1 и 0 соответственно.

После этого начинается цикл for, который будет выполняться m раз. Внутри цикла считывается число a и добавляется к переменной s (вычисляется сумма чисел) и перемножается с переменной p (вычисляется произведение чисел).

После выполнения цикла проверяется условие if m > 10, и если оно истинно, то выводится на экран значение переменной s (сумма чисел).

Затем проверяется условие if m < 10, и если оно истинно, то выводится на экран значение переменной p (произведение чисел).

Таким образом, программа правильно выполняет задачу: если введенное число больше 10, то находит сумму введенных чисел, а если меньше 10, то находит их произведение.