For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>40) then
k:=k+1;
end;
<span>writeln(k);</span>
=B2-B2*$F$2
$F$2 доллары значат что ячейка не будет смещаться при переносе формулы в нижние ячейки
Смотри, x:=x+y Сам Y у нас тут не меняется, значит менялся только X. отсюда получаем 4=x+27 обычное уравнение. x=4-27=-23.
А т.к. Y не менялся, первоначальные значения равны:
x=-23, y=27
1) Байкал - озеро
2) Петербург - город
3) Индия - страна
4) хлопоты - глагол
5) дебри - они в тундре
6) мозоль - он не красный
7) лазурь - заканчивается на "рь"
var a: array [1..20] of integer;
i, k: integer;
s: real;
begin
for i:=1 to 20 do
readln(a[i]);
s := 0;
k := 0;
for i:=1 to 20 do
if (a[i] >=0) and (a[i] mod 2=0) and (a[i]>6) then begin
s := s + a;
k := k + 1;
end;
writeln('среднее: ', s/k);
<span>end. </span>