Var sum,k,a: integer;
begin
a:=1; sum:=0; k:=0;
writeln('Вводите числа');
while a<>0 do begin
readln(a);
if (a<0)and(a mod 10=-5) then begin k:=k+1; sum:=sum+a; end;
end;
if k=0 then writeln('Таких чисел нет') else writeln('Среднее арифметическое равно ', sum/k );
readln
end.<span>
</span>
<span />
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
<span>Var A:array[1..100] of integer;
i,n,k,s:integer;
Begin
write('Введите размерность: ');readln(n);
For i:=1 to n do
Begin
A[i]:=random(31)-15;
write(A[i]:4);
if A[i] mod 2 = 0 then
Begin
s:=s+A[i];
inc(k);
End;
End;
writeln;
writeln('Сумма чётных= ',s);
writeln('Кол-во чётрых= ',k);
readln;
End<span>.</span></span>
Цвет капюшона могут определить те два гнома, что в синем. потому что им известно, что всего красных капюшона 3. и перед собой они видят трех гномов в красных капюшонах->на них самих не красные капюшоны->синие.
Звуковая это ухо, зрительная-глаза, обонятельная это-нос
Жизненный опыт которого передает родитель ребенку