Составить программу в паскале.Дан массив целых чисел, состоящий из 13 элементов. Заполнить его с клавиатуры. Найти: сумму элементов, имеющих нечетные индексы.
Program boo;
uses crt;
var
b : array[1..13] of integer;
s : integer;
i : byte;
begin
writeln(Заполните массив:);
for i := 1 to 13 do
readln(b[i]);
clrscr;
s := 0;
for i:=1 to 13 do begin
write(b[i], );
if (i mod 2 <> 0) then s := s + b[i];
end;
writeln;
writeln(Сумма нечётных элементов равна , s);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
