1. Информатика
  2. Найти сумму и среднее арифметическое

Найти сумму и среднее арифметическое положительных элементов массива a(n)

1NatikNatik1 1NatikNatik1    3   09.03.2019 12:10    0

Ответы
elnerfaiq elnerfaiq  24.05.2020 10:45

var a:array[1..10] of integer;

i,s,n,k:integer;

Begin

  read(n);

  for i := 1 to n do begin

    read(a[i]);

    if a[i]>0 then begin

      s:=s+a[i];

      k:=k+1;

    end;

  end;

 

  writeln(s, s/k);

End.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Millat23 Millat23  20.09.2019 09:10
Для какого из указанных значений числа x истинно выражение: (х 1)и(х 2)и(х^з)? 1) 1 2) 2 3) 3 4) 4...
kkkkiiiii kkkkiiiii  20.09.2019 09:01
Дано условие: {x-3,если x 7 y= {4*x в квадрате , если x -5 {5, в других случаях напишите условие, используя оператор интегрированной среды программирования для решения . 50...
reginasachtova reginasachtova  13.04.2020 16:35
Определите результат выполнения команды для целочисленных x=10: if x 0 then if x 8 then y:= sqrt (x) else y:= 2*x+1 else y:= 0; writeln(y);...
ApuCTokpaT1 ApuCTokpaT1  14.04.2019 13:09
Паскаль 1. вывести на экран таблицу умножения а) 9 б) 2 2. вывести на экран все натуральные числа от 1 до 10 и соответствующие им степени числа 2: 1 2 2 4 3 8 4 16 10 1024 3....
kotofrei231 kotofrei231  14.04.2019 13:10
Паскаль вывести на экран дисплея таблицу умножения а) 9 б) 2...
vladosik6448 vladosik6448  14.04.2019 13:17
Мне с чертёжник перемещается на координатной плоскости, оставляя след в виде линии. чертёжник может выполнять команду сместиться на (a, b) (где a, b – целые числа), перемещающую...
АртемGoloborshev АртемGoloborshev  14.04.2019 11:30
100 ! ! 1. заполните массив случайными числами в интервале [100,999] и переставьте их по возрастанию средней цифры. 2. введите массив из 5 элементов с клавиатуры и найдите количество...
lydmilakucherozh2qq lydmilakucherozh2qq  14.04.2019 11:48
Умарины есть доступ в интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения информации 218 бит в секунду. у миши нет скоростного доступа...
Random00700 Random00700  14.04.2019 11:51
Придумайте сказку про гаджеты заранее огромное...
zemkina347 zemkina347  14.04.2019 11:52
Как сделать так что бы текст двигался по окну. на языке программирование c#​...

Популярные вопросы