Организуйте массив. Определите сумму элементов с четными и нечетными индексами.
10-11 класс
|
Program Maas;
const n=12;
var
a: array[1..n] of integer;
i, sum, sumn: integer;
begin
write('Массив: ');
for i := 1 to n do
begin
a[i] := random(10);
write(a[i], ' ');
if i mod 2 = 0 then inc(sum, a[i])
else inc(sumn, a[i]);
end;
writeln;
writeln('Сумма элементов с четными индексами = ', sum);
writeln('Сумма элементов с нечетными индексами = ',sumn);
end.
Другие вопросы из категории
текстовый фрагмент, оформить в виде
структурной схемы с двумя уровнями
иерархии.
Александрович Александров, если для набора заглавных букв он использует дополнительно одну специальную клавишу, а для разделения фамилии, имени и отчества -клавишу пробел ?
Читайте также
полученную сумму.
2. Дан массив В(n). Определите произведение элементов, кратных 3. Выведите на экран исходный массив и найденное произведение.
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
X(2) - то же для массива Q;
X(3) - то же для массива P.
Вычисление суммы элементов массива, значения которыхлежит в интервале [2;4], оформить в виде подпрограммы.
PascalABC
Вот такие задачи нам задают.Прошу помощи.Заранее спасибо =)
среднее второго и предпоследнего элементов массива
дан целочисленный
массив из 10 элементов написать программу находящую сумму элементов
массива красных 3 ил 5
дан целочисленный массив из 30 ти элементов
написать программу которая позволяет найти среднее арифметическое
положительных элементов массива
2) ввести с клавиатуры массив из n элементов вывести на экран максимальный четный элемент и минимальный нечетный элемент