Телефон компьютер и помойму письма
Var c:char; a,s,p,k:integer;
begin
readln(c);
a:=ord(c);
writeln('code = ',a);
s:=0; k:=0; p:=1;
while a>0 do
begin
s:=s+a mod 10;
p:=p*(a mod 10);
k:=k+1;
a:=a div 10;
end;
writeln('s = ',s,' p = ',p,' sr = ',s/k:5:2);
end.
Пример:
&
<span>code = 38
s = 11 p = 24 sr = 5.50</span>
1.Появление первых лазерных дисков 15 декабря 1978
2. Первые следы иероглифического письма в Древнем Египте<span> к началу I династии, то есть примерно в 4 тысячелетии до н. э.
</span>3. <span>Середина XVI в.
4. </span><span>21 ноября 1877
5. </span><span>Демонстрация первого кинофильма. 1895 г.</span>
Решение #1
var a:array[1..1000] of integer;
s,i,k,N:integer;
begin
s:=0;
k:=0;
read(N);
for i:=1 to N do
read(a[i]);
for i:=1 to N do
if a[i]<0 then begin
s:=s+a[i];
k:=k+1;
end;
writeln(s/k);
end.
Решение #2;
var a,i,s,k,N:integer;
begin
k:=0;
s:=0;
read(N);
for i:=1 to N do begin
read(a);
if a<0 then begin
k:=k+1;
s:=s+a;
end;
end;
write(s/k);
end.
Оба решение дают <u>один</u> результат, но первое сделан массивом, а второе простым перебором чисел.
Формат входных данных
Задается натуральное число N
Затем задается N целых чисел
Формат выходных данных
Целое число - среднее арифметическое всех отрицательных чисел
<u><em>Пример</em></u>
<em>Вход</em>
<em>5</em>
<em>1 -2 3 -4 5</em>
<em>Выход</em>
<em>-3</em>
<span>Вопросы в ЛС</span>