сервис вопросов и ответовДано N-произвольных чисел найти их сумму.
5-9 класс|
|
12345люцина
02 марта 2014 г., 12:47:52 (10 лет назад)
Nunesaron061
02 марта 2014 г., 15:37:25 (10 лет назад)
var
n, i: integer;
a, s: real; //a - вводимое число, s - сумма чисел
begin
s:= 0; //Обнуляем значение суммы
writeln('Введите N');
readln(N); //Вводим N
for i:= 1 to N do {N раз вводим число и каждый раз прибавляем введенное число к значению суммы}
begin
writeln('Введите число');
readln(a);
s:= s + a;
end;
writeln('Сумма введенных чисел равна: ', s); //Выводим сумму
end.
Если все правильно, отметь решение как лучшее)
Ответить
Другие вопросы из категории
Пжл помогите.
Определите значение переменной z
после выполнения следующего фрагмента программы:
m:=13;
n:=21;
n:=2*m-n;
if m<=n then
p:=m+n
else
p:=4-m*n;
Решите задачу используя крги Эйлера или схему состава.
В салоне небольшого самолета летят 42 пассажира.Некоторые из них москвичи,остальные-иногородние.Среди москвичей 9 мужчин.Некоторые из пассажиров артисты,но ни одна из иногородних женщин не является артисткой. Всего иногородних мужчин 18.Изних 13-не артисты,Среди пассажиров,не являющихся артистами,16 мужчин и 11 женщин.6 москвичей не артисты.Разберитесь,пожалуйста,с пассажирами:кто есть кто?
Читайте также
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Составить программу в паскале: Для четырех произвольных чисел, введенных с клавиатуры, выведите на экран соответствующие
результаты.:
· Если первое из них отрицательно, а второе вдвое больше третьего, то выведите среднее арифметическое всех четырех чисел.
· Если произведение этих чисел больше их суммы, то выведите эти сумму и произведение.
· Если выполняются одновременно два перечисленных выше условия, то выведите среднее арифметическое этих чисел, их произведение и сумму
· Иначе, выведите удвоенные значения этих чисел
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
Помогите пожалуйста очень прошу вас добрые вы люди .-. Даны три числа a,b,c если они положительные то найти их сумму,а если отрицательные то поменять
знаки и затем найти сумму Помогите алгоритм составить в Паскале .
Вы находитесь на странице вопроса "Дано N-произвольных чисел найти их сумму.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.