program Prog;
var c: array[1..100] of Integer;
summ, i: Integer;
begin
randomize;
// заполнение
for i := 1 to 100 do
c[i]:=random(42)-26;
// вывод массива
write('Массив: ');
write(c[i],' ');
// вычисление суммы элементов на нечетных местах
if ((i mod 2) = 1) then
summ+=c[i];
writeln;
// вывод этой суммы
write('Сумма элементов на нечетных местах: ');
write(summ);
end.
program Prog;
var c: array[1..100] of Integer;
summ, i: Integer;
begin
randomize;
// заполнение
for i := 1 to 100 do
c[i]:=random(42)-26;
// вывод массива
write('Массив: ');
for i := 1 to 100 do
write(c[i],' ');
// вычисление суммы элементов на нечетных местах
for i := 1 to 100 do
if ((i mod 2) = 1) then
summ+=c[i];
writeln;
// вывод этой суммы
write('Сумма элементов на нечетных местах: ');
write(summ);
end.