А(20) Найти сумму элементов, стоящих на четных местах. Составить таблицу и программу
5-9 класс
|
var
n,i,s:integer;
a:array [1..20] of integer;
begin
readln (n);
s:=0;
for i:=1 to n do
begin
readln(a[i]);
if i mod 2=0 then s:=s+a[i];
end;
writeln(s);
end.
Объясню. Если индекс элемента массива четный, то этот элемент прибавляется ка сумме и выводится.
Массив из 20 элементов? На Паскале?
Другие вопросы из категории
Do
Read(a[i]);
For i:=1 to 20 Do
a[i]:=a[i]/10;
For i:=1 to 20 Do
Write(a[i])
End.
информационный объем сообщения в этой кодировке:
Имеются данные о количестве полных лет трех призеров спартакиады. Напишите программу, выбирающую и выводящую возраст самого младшего призера.
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
строку данный массив. Найти сумму неположительных элементов массива,количество элементов кратных 3, произведение элементов,стоящих на четных местах
клавиатуры. определить количество элементов кратных 3
1.Одномерный массив заполнен любыми числами. Заменить отрицательные элементы их модулями.
2.Одномерный массив заполнен целыми числами. Возвести в квадрат элементы, стоящие на четных местах.