А(20) Найти сумму элементов, стоящих на четных местах. Составить таблицу и программу
Ответы на вопрос
Ответил kirIlIne
0
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.
Объясню. Если индекс элемента массива четный, то этот элемент прибавляется ка сумме и выводится.
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.
Объясню. Если индекс элемента массива четный, то этот элемент прибавляется ка сумме и выводится.
Ответил kristin5
0
спасибо большое)
Новые вопросы