сервис вопросов и ответовПоследовательно вводится n-целых чисел. Найти сумму чётных чисел
5-9 класс|
|
Sl5220
27 марта 2014 г., 21:08:00 (10 лет назад)
Jasmin1999h
27 марта 2014 г., 23:12:35 (10 лет назад)
var x,n,i,s:integer;
begin
write('Сколько будет чисел: ');
readln(n);
writeln('Вводите числа по одному:');
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then s:=s+x;
end;
writeln('S=',s);
end.
Ответить
Другие вопросы из категории
напишите программу решения задачи: Дано трехзначное число. Поменяйте местами первую и третью цифры числа. Например, вводится число 937, в результате выполн
ения программы на экран выводится 739. помогите плиз!!
В таблице приведены к поискавому серверу.Расположены номера запросов в порядке возрастания количества страниц,которые найдет поисковый сервер по
каждому запросу.Для обозначения логической операции ИЛИ используется палочка, а для логической операции
1. кролики / лисицы
2. (зайцы кролики) / (лисицы волки)
3.зайцы & кролики & лисицы & волки
4.зайцы & кролики
Напишите программу и нарисуйте блок-схему: дана таблица из 10 целых чисел – рост учеников.
Найти количество учеников, чей рост превышает средний; самого высокого и самого низкого в классе, Сумму ростов элементов с четными номерами: 2-го, 4-го и т.д.
Помоги,пожалуйста!!
Читайте также
1.Дан массив целых чисел, найти среднее арифметическое всех элементов массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
Помогите пожалуйста ! срочно надо!!!...в заданной последовательности целых чисел определите сумму элементов кратных 10! пример задачки вот именно под
типо по такой же системе которую щас напишу! program Maximum; i,n,max:integen; begin writeln ( 'введи элементы массива для поиска максимума'); for i:=1 to 10 do begin write ('a [', i ,']=');readln (a [ i ] ) ;end; max:=a[1]; for i = 2 to 10 do if a [ i ] > max then begin max:=a [ i ] ; n:= i ; end; writeln ('найти наибольший элемент ',max ,' под номером ', n); вот наподобие этого примера нужно построить мою задачу! в заданной последовательности целых чисел определите сумму элементов кратных 10. Помогите пожалуйста!!!
1)дан массив. найти сумму положительных и нечетных и количество отрицательных четных элементов
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
Помогите эти задания зависят на оценку за четверть 1) Записать алгоритм распознания среди всех треугольников прямоугольные, если таковых нет
вычислить периметр.
2) Последовательно вводится N целых чисел найти кол-во равных нулю.
помогите очень нужно!
СРОЧНО!!30 баллов
В паскаль(цикл)
Последовательно вводится N целых чисел.найти количество отрицательных среди них
Вы находитесь на странице вопроса "Последовательно вводится n-целых чисел. Найти сумму чётных чисел", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.