информатика,срочно нужно,задание на массивы
10-11 класс
|
var a:array[1..10] of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 10 do
read(a[i]);
for i:=1 to 10 do
if i mod 2 = 0 then s:=s+a[i];
writeln(s);
end.
Формат входных данных;
Массив состоящий из 10 целых чисел
Формат выходных данных
Одно целое число - сумма четных элементов
Пример
Вход
1 2 3 4 5 6 7 8 9 10
Выход
30
Вопросы в ЛС
Другие вопросы из категории
Помогите написать код на Delphi.
1)Дан массив nxm. Найти количество строк, в которых первый элемент совпадает с последним.
каждой строке необходимо вывести значение аргумента и соответствующее ему значение функции в форматированном виде с 4 знаками после запятой. Кроме того, во время построения таблицы необходимо найти и вывести в конце таблицы отдельной строкой следующее: Максимальное среди значений функции, имеющих нечетную целую часть
Читайте также
Если поможете я потом еще баллов заработаю кину, или денюжку на мобильный
Задан числовой массив а[2,5] .Найти кол-во массивов делящихся на 5
2. Составить задание на разработку программы на разветвляющиеся структуры в QBASIC
3. Составить задание на разработку программы циклической структуры в QBASIC
Нужно задание + сама программа
которой сначала напечатайте элементы массива в строчку, а на следующей строчке - произведение элементов с чётными индексами". Заранее спасибо.
Как мне препод объясняла там должно быть for i:=1 to N do begin
P:P*(2*i)/(2*i+1)
end;
Вот часть которую нужно как то применить к этому заданию...
Как будет выглядеть весь код?)))