Program mm; var a:array[1..12] of integer; begin for i:=1 to 12 do begin а[1]:=5; а[2]:=4; а[3]:=-3; а[4]:=1; а[5]:=0; а[6]:=-4; а[7]:=(у тебя не написано); а[8]=25; а[9]=-8; a[10]=-5; а[11]=-17; а[12]=-1; end; writeln('Вот исходный массив'); for i:=1 to 12 do writeln('A[',i,']=',a[i]); for i:=1 to 12 do begin if (A[i]<0) then a[i]:=1; if (a[i]>0) then a[i]:=-5; end; writeln('Вот полученный массив'); for i:=1 to 12 do writeln('A[',i,']=',a[i]); writeln(' Введите 12 чисел'); for i:=1 to 12 do readln(A[i]); (это доп оценка) end.
1) Цикл от 2 включительно, до 20 включительно. 2) Видим первое условие: i>=3 и i<=8 соответственно, когда циклическая переменная будет равна 3 (i=3) будет выполнено условие. А также при i=9 условие не будет выполняться. 3) Видим второй блок условий. Они подразумевают, что квадрат переменной не должен быть выше границы в 20 единиц. Берем на заметку, что квадрат 5 равен 25, что является подходящим под условие и принудительно завершит цикл. 4) Итак, при первом цикле переменная равна 2. Ни одно из условий не выполниться. При i=3 выполниться первое условие и сумма увеличиться на остаток от деления i на 2, т.е. на 1. Это условие будет выполняться до 5, позже цикл прервёт второе условие. Значит необходимо посчитать остатки от деления i (3..5) на 2. ответ: 2
это рис 3 это цилиндр это правильно