Question

помогите нужно расписать как работает программа очень понятно.

Answer 1

Program Z2;
uses crt; // Подключение модуля
 Const    //Описание констант
n =16;
var         //Описание переменных
s1,s2:real;//Не совсем понятно зачем real, ведь массив integer
var
q: string; //Строковая переменная !!!Вообще нигде не используется
Var m: array [1..n] of integer; //Массив целых чисел
Var i,j:integer; //Переменные цикла !!Хватило бы и одной
begin
//Формирование массива
for l:=1 to n do
read(m[i]); 

//Обнуление переменных сумм
 s1:=0;
 s2:=0;

for J:=1 to 8 do
begin
//Подсчет суммы элементов с четным порядковым номером
s1:=s1+m|2*j];
//Подсчет суммы элементов с нечетным порядковым номером
s2:=s2+m|2*j-1];
end;

If s1>s2 then //Условие
writeln('cyммa элементов с четным индексом больше. чем сумма с нечетным);
end.