var c: array [1..20] of integer;
i,s1,s2: integer;
begin
s1:=0;
s2:=0;
for i:=1 to 20 do begin
write('Ввод значения для c[',i,'] - ');
readln(c[i]);
if i<=10 then s1:=s1+c[i] else s2:=s2+c[i];
end;
if s1>s2 then writeln('Сумма первых 10 элементов больше, чем последние 10 элементов')
else if s2>s1 then writeln('Сумма последних 10 элементов больше, чем первые 10 элементов')
else if s1=s2 then writeln('Первые 10 элементов равны последним 10 элементам');
end.
Рассмотрен, также, вариант "если они равны" (можете удалить последнее условие, если не нужно)
Лично я могу посоветовать забыть про эти книжки для подготовки. Достаточно сидеть на сайте "Решу ОГЭ". Все задания очень простые. Если возникает трудность с решением, то просто посмотри видео на ютубе. Многие задания требуют банальной внимательности и умения считать (не нужно складывать тригенаметрические уравнения и т.д. Достаточно базовых знаний математики). А если все же хочешь приобрести подобную литературу, то все тесты одинаковы, просто в любом книжном магазине спроси, и всё. Ну, а сам экзамен невероятно лёгок, за 2 месяца с нуля подготовится на 4 более чем реально. Также можешь советоваться с учителем, на счёт тех заданий, которые всё таки вызвали трудность. Просто сиди на сайте, посмотри материал по решению тестов, и пообщайся с учителем. За несколько месяцев натаскайся тестов, а после если планируешь получить 5, то начинай изучать 2 часть (работа с компьютером).
Лично у нас в школе 2 часть на пальцах вообще объясняли(ибо компьютеры в плохом состоянии были).
Желаю тебе удачи на экзаменах, и надеюсь что это тебе
