Написать программу по ПРОЦЕДУРАМ с массивами в языке программирования Pascal.
10-11 класс
|
Задание:
Дан массив целых чисел. Найти сумму положительных нечетных. Обязательно по процедурам с массивами
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.
Другие вопросы из категории
определить площадь стен помещения 4,если высота помещения -3 метра
Сколько таких учебников может поместиться на дискете 1,44 Мб, на винчестере в 1 Гб.
4. В детской игре «Угадай число» первый участник загадывает целое число от 1 до 32. Второй участник задает вопросы: «Загаданное число больше числа ___?». Какое количество вопросов при правильной стратегии гарантирует угадывание?
Читайте также
Алгоритм поиска номера первого из двух последовательных элементов в целочисленном массиве из 30 элементов, сумма которых максимальна (если таких пар несколько, то можно выбрать любую из них). Пишите программу целиком
Задание:
Дан массив целых чисел. Найти сумму положительных нечетных
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
13.
Нужно написать программу на цикле с предусловием, на Паскале.
2. написать программу, производящее "форматный" вывод разных значений
3. написать программу использующие процедуру writeln c параметрами и без параметров