Вводятся m чисел , если ввели больше 10 то отыскать их

Вводятся 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 mgt;10 then write (s);
if m lt; 10 then write (p) ;
end.

Задать свой вопрос
Нелли Абракова
Больше 10 чего? Чисел либо значение?
Борис Батыев
чисел
Людмила Войтко
Секунду
Sema Gomanenkov
Исправляю
1 ответ
Var a,m,s,d:integer;
begin
readln(m);
if mgt;=10 then 
begin
s:=0;
d:=0;
end;
if mlt;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.
Егор
То есть программка сходу отключается ?
Маргарита Жанаргенова
То есть программка сразу отключается?
Нелли Рятсеп
да вводишь всякую цифру и ничего не происходит
Иванович Вован
Так верно, поначалу необходимо ввести кол-во чисел, позже вводить например ты написал первое число 2, то необходимо написать 2 числа если первое число 10 то 10
Заколодунева Вероника
Но 10 вводить нельзя. т.к по условию считается, что 10 не может быть.. Так что только >10 либо <10
Полина Мурахтина
нет там по условию если больше 10 отыскать творенье
Вадим Ангорский
ой сумму
Eva Konec
Ну вышло?
Телемакова Валентина
Я там = дописал в ответе
Анастасия Кочина
Но я уверен, что решение правильно
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт