Const N = 40;
var
a:array[1..N] of integer;
i,j,s:integer;
st:real;
begin
for i:=1 to N do readln(a[i])
s:=0; st:=0;
for i:=1 to N do
if (a[i]>9)and(a[i]<100)and(a[i] mod 2=0) then
begin s:=s+1; st:=st+a[i];end;
if s>0 then writeln('Среднеарифметическое = ',st/s:4:1)
else writeln('Искомых чисел нет');
end.
Пример (для n=20):
<span>416
295
-848
-881
-325
-690
139
-220
992
607
-998
400
720
-536
757
-123
-559
-941
22
-748
Среднеарифметическое = 22.0</span>
<span>1. x принадлежит отрезку [-1, 1]
(x≥-1) ∧ (x≤1)
2. х лежит вне отрезка [-1, 1]
(x<-1) ∨ (x>1)
3. каждое из чисел х, у отрицательно
(x<0) ∧ (y<0)
4. хотя бы одно из чисел х, у отрицательно
(x<0) ∨ (y<0)
5. ни одно из чисел х, у не является отрицательным
(x≥0) ∧ (y≥0)</span>
<span>=А1+А2 (арифмитическое сложение)</span>
Написать формулу для ячейки B9
=B8*(100+B11)
Пока сверху и не слева стена
вперед
вниз
вниз
вниз
вправо
вправо
вправо
закрасить
пока сверху стена
закрасить вперед
пока не снизу стена
закрасить
вниз
пока снизу стена
закрасить
влево
наверх
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
направо
закрасить