Есть ответ 👍

Сколько битов нужно чтобы закодировать выбор одного из 12 вариантов

187
418
Посмотреть ответы 2

Ответы на вопрос:

нура49
4,6(71 оценок)

Хз честно эх хых хох

решение #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.

 

оба решение   один  результат, но первое сделан массивом, а второе простым перебором чисел.

  формат входных данных

задается натуральное число n

затем задается n целых чисел 

формат выходных данных

  целое число - среднее арифметическое всех отрицательных чисел

  пример

вход

5

1 -2 3 -4 5

выход

-3

  вопросы в лс

Популярно: Информатика