Создать одномерный числовой массив из 6 элементов и вывести результат ** экран. Затем...

Question

Создать одномерный числовой массив из 6 элементов и вывести результат на экран. Затем элементы, стоящие на нечетных местах уменьшить на 2, подсчитать сумму этих элементов и вывести эти значения на экран с пояснениями

Answer 1

Program n1;
const n=6;
var a: array [1..n] of integer;
sum,i: integer;
begin
sum:=0;
for i:=1 to n do
begin
a[i]:=random(15)+1;
write(a[i],' ');
if i mod 2<>0 then sum:=sum+a[i];
end;
writeln;
writeln(sum/2);
end.

Comments

Спасибо большое)

---

const
m = 6;
var a:array[1..6] of integer;
i, sum:integer;
begin
writeln('Исходный массив:');
for i:=1 to m do
begin
a[i]:=random(10);
write(a[i]:2);
end;
writeln;
sum:=0;
for i:=1 to m do
if odd(i) then
begin
a[i]:=a[i] - 2;
sum:=sum + a[i];
end;
writeln('Итоговый массив:');
for i:=1 to m do
write(a[i]:2);
writeln;
writeln('Сумма элементов на нечетных метсах = ', sum);
end.

---

Вот более улучшнная версия)