Найти сумму
10-11 класс
|
элементов массива с четными индексами, значение которых превышает К.(паскаль)
uses crt;
const n=20;
var a:array[1..n] of integer;
s,k,i:integer;
begin
for i:=1 to n do
read(a[i]);
readln(k);
s:=0;
for i:=1 to n do
if (i mod 2=0) and (a[i]>k) then s:=s+a[i];
writeln(s);
end.
Другие вопросы из категории
Потом такую же только цикл с предусловием, и еще одну цикл с постусловием
число рядов. Написать программу подсчета мест в кинотеатре «Оскар», в соответствии со схемой кинотеатра, представленной ниже. На экран вывести итоговое количество мест.(вложение - 1 рисунок)
Программа 6. Найти значение выражения для вводимых с клавиатуры А, В и С. при А=4, В=2, С=5.(вложение - формула)
Программа 7. Написать программу, вычисляющую значения логического выражения . На экран вывести это значение.
Программа 8. Пользователь вводит число 0,515625. Написать программу, которая в точности повторяет алгоритм перевода данного числа из десятичной системы счисления в четверичную. На экран вывести окончательный результат.
Читайте также
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
от -10 до 30.найти кол-во положит и отриц элементов.найти сумму положит и произведение отриц.
лементов. Результат распечатать в виде:
Сумма наибольших=
Сумма наименьших=
№2
Даны два массива по 30 элементов. Найти среднее арифмитическое для элементов 1-го массива,номера которых больше номера минимального элемента 2-го массива
Заранее спасибо
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Сумма.
Массив: -7 0 3 1 -8 -3 5 3 12 15 40 7
2) Определить в Exel адрес первого числа больше 2.