сервис вопросов и ответовНа заданном пользователем отрезке найти сумму чётных чисел.
5-9 класс|
|
Andrei220698
20 авг. 2014 г., 0:53:47 (9 лет назад)
Sonyav655
20 авг. 2014 г., 2:25:53 (9 лет назад)
Var
a:array [1..1000] of integer;
i,n,sum:integer;
begin
randomize;
write('Введите максимальное число массива:');
Readln(n);
begin
for i:=1 to n do
a[i]:=random (20)+20;
end;
Writeln('Массив состоит из следующих чисел:');
for i:=1 to n do
write(' ',a[i]);
Writeln();
sum:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then sum:=a[i]+sum;
writeln('Сумма всех чётных чисел равна : ',sum);
end.
Ответить
Другие вопросы из категории
Отметьте признаки, которые могут быть указаны в сообщении об объекте:
свойства
поведение
состояние
возможности
действия
в файле какого типа можно сохранить рисунок,если нужно сэкономить место на диске.
в файле какого типа можно сохранить рисунок,если нужно обеспечить высокое качество изображения.
ПРОГРАММИРОВАНИЕ,ПАСКАЛЬ.РЕБЯТА,УМОЛЯЮ,ПОМОГИТЕ.
Задали написать программу на язвке паскаль:вычислить и вывести на экран 8 первых элементов ряда если каждый элемент задан формулой а1= i/sin*i
Читайте также
Ребятки!!!!ПОмогите пожалуйста очень срочно!!!! Дан файл f компоненты которого действительные числа.Найти сумму компонентов
файла.Результат поместить в файл g.
дан файл f компоненты которого являются целыми числамию Найти наибольший и наименьший из компонентов файла.результат поместить в файл g
ДАн файл f компоненты которого являются целыми числами найти количество чётных чисел среди компонентов.результат поместить в файл g
Дан файл F компоненты которого являяются целыми числами.записать в файл g все чётных числа файла f
Дан файл F компоненты которого являяются целыми числами переписать компоненты файла f в файл g,так чтобы в файле сначала шли отрицательные а потом положительные числа.
Нужна помощь срочно,в Программе КуМир ,надо решить задачки,и прошу прислать ответы:
1)Найти сумму чисел от 1 до 10
2)Найти сумму чётных чисел от 2 до 30
3)Найти сумму нечётных чисел от 1 до 30
4)Найти произведение чисел от 1 до 10
5)Найти произведение чётных чисел от 10 до 20
1)найти сумму первых k последовательных нечетных чисел. написать программу в паскале. 2)вывести на экран натуральные нечетные числа от 5 до 55.тоже
паскаль 3)найти произведение последовательных натуральных чисел от n до m. написать программу паскаль. 4)найти сумму последовательных натуральных чисел от 10 до 15.тоже паскаль
напишите программу, которая в последовательности натуральных чисел вычисляет сумму всех чисел кратных 7 и оканчивающихся на 0. Программа получает на
вход натуральные числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0- признак окончания ввода, не входит в последовательность), Количество чисел не превышает 1000. Введенные числа не превышают 30000. Программа должна вывести одно число: сумму всех чисел, кратных 7 и оканчивающихся на 0. Программу надо написать в Pascal
Вы находитесь на странице вопроса "На заданном пользователем отрезке найти сумму чётных чисел.", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.