Написать программуПользователь вводит 5 целых чисел,программка находит сумму всех
Написать программку
Юзер вводит 5 целых чисел,программка обретает сумму всех отрицательных и творение всех положительных чисел
1 ответ
Игорь
Uses CRT;
var i,s,p,a,n:integer;
begin
p:=1;
write('введите кол-во чисел ');
readln(n);
for i:=1 to n do begin
write('введите ',i,'число: ');
readln(a);
if alt;0 then s:=s+a
else p:=p*a
end;
writeln('сумма отрицательных чисел одинакова: ',s);
writeln('творение всех положительных чисел одинаково: ',p)
end.
как-то так)
var i,s,p,a,n:integer;
begin
p:=1;
write('введите кол-во чисел ');
readln(n);
for i:=1 to n do begin
write('введите ',i,'число: ');
readln(a);
if alt;0 then s:=s+a
else p:=p*a
end;
writeln('сумма отрицательных чисел одинакова: ',s);
writeln('творение всех положительных чисел одинаково: ',p)
end.
как-то так)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов