Имеется целочисленный массив состоящий из N элементов (N - чётное) а)Найти сумму первых N/2 элементов. б)Найти сумму элементов стоящих на чётных
5-9 класс
|
позициях. в) Найти произведение элементов стоящих на нечётных позициях. г) Найти сумму чётных элементов стоящих на чётных позициях.
а)
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
read(a[i]);
for i:=1 to n div 2 do
sum:=sum+a[i];
writeln(sum);
end.
б)
uses crt;
var n,i,sum:integer;
a:array[1..100] of integer;
begin
writeln('N?');
read(n);
writeln('Элементы?');
for i:=1 to n do
begin
read(a[i]);
if i mod 2=0 then
sum:=sum+a[i];
Другие вопросы из категории
на программу Паскаль, пожалуйста ((
следующей задачи: Из одного грамма углеводов человек получает 4,1 ккал, из одного грамма жиров — 9,3 ккал, из одного грамма белков — 4,2 ккал. Порция борща со свежей капустой содержит 3,6 г белков, 12 г жиров и 24 г углеводов. Порция гуляша — 24,3 г белков, 24 г жиров, 7 г углеводов. Порция картофеля с маслом — 2,7 г белков, 7 г жиров и 39 г углеводов. Порция компота из свежих фруктов содержит 0,4 г белков, 36 г углеводов, не содержит жиров. Сколько энергии вы получите: 1) отдельно из белков, жиров и углеводов, содержащихся в каждом блюде; 2) из каждого блюда; 3) отдельно из белков, жиров и углеводов, входящих в обед; 4) из всего обеда? 2. Введите необходимые формулы и проведите по ним расчеты. 3. Сохраните таблицу в собственной папке под именем Калорийность. Мне надо таблицу, чтобы все понятно было. Если есть ссылки на решение или файлы киньте пожалуйста
Читайте также
Найти сумму элементов данного массива.
2. Заполнить одномерный массив, состоящий из 10 элементов, случайными числами от-15 до 35.
Найти значение максимального элемента массива.
среднее арифметическое всех элементов массива; d) Найти произведение всех элементов массива.
а) кол-во элементов кратных пяти
б) кол-во двузначных отрицательных чисел
P.S. это должны быть две задачи
2. Создать массив A из 10 элементов, заполненный случайным образом числами принадлежащих промежутку (0;20). Вывести полученный массив на экран. Вычислить количество элементов массива, значения которых не превышают среднее арифметическое значений его элементов.
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.