сервис вопросов и ответовНаписать программу по процедурам с массивами в языке программирования Pascal.
10-11 класс|
|
Задание:
Дан массив целых чисел. Найти сумму положительных нечетных
Dashsazanova
26 февр. 2015 г., 3:31:42 (9 лет назад)
Aorobecz
26 февр. 2015 г., 4:04:15 (9 лет назад)
var a,b,i:longint;
m:array[1..100000] of longint;
procedure search(a:longint);
var sum,i:longint;
begin
sum:=0;
for i:=1 to a do
if m[i] mod 2 >0 then
inc(sum,m[i]);
writeln(sum);
end;
begin
read(a);
for i:=1 to a do
read(m[i]);
search(a);
end.
Ответить
Другие вопросы из категории
Срочноооо!Два ученика выполняют алгоритм, первый ученик выполняет внимательно и аккуратно, а второй спешил и сделал кое как. Можно ли считать, что
первый ученик формальный исполнитель?
помогите решить в SQL
Лабораторная работа №3. DDL
Для таблицы учета информации о филиалах банка: 1. Создать таблицу с 4 полями. Create table 2. Добавить/удалить/переопределить тип данных у столбца. alter 3. Добавить/удалить первичный ключ. 4. Добавить/удалить проверку значения столбца. 5. Создать/удалить значение по умолчанию. 6. Создать таблицу из 6 столбцов , 1 – первичный ключ, 2 – значение по умолчанию, 3 – проверка значения, 4 – ноль, 5 – не ноль, 6 – уникальный. (сразу все ограничения в одном операторе create)_______________________________________________________________________________
Помогите найти правильное утверждение:
1) 5000 байт = 5 кБ
2) 5120 кБ = 5 МБ
3) 2,5 кБ = 2500 байт
Читайте также
Написать программу по ПРОЦЕДУРАМ с массивами в языке программирования Pascal.
Задание:
Дан массив целых чисел. Найти сумму положительных нечетных. Обязательно по процедурам с массивами
Написать программу по ПРОЦЕДУРАМ с массивами в языке программирования Pascal.
Алгоритм поиска номера первого из двух последовательных элементов в целочисленном массиве из 30 элементов, сумма которых максимальна (если таких пар несколько, то можно выбрать любую из них). Пишите программу целиком
дан массив из семи элементов написать программу подсчитывающую
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
Помогите написать программу по Информатике! Найти произведение двузначных нечетных чисел, кратных
13.
Нужно написать программу на цикле с предусловием, на Паскале.
1. написать программу, производящее "неформатный" вывод разных значений
2. написать программу, производящее "форматный" вывод разных значений
3. написать программу использующие процедуру writeln c параметрами и без параметров
Вы находитесь на странице вопроса "Написать программу по процедурам с массивами в языке программирования Pascal.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.