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