Вычислить среднее арифметическое

@Вадим3777 · Регистрация: 05.01.2012

Author24 — интернет-сервис помощи студентам

Вычислить среднее арифметическое нулевых элементов массива целых чисел. Элементы
массива вводятся с клавиатуры.

@3a9Ic · 10.05.2012, 15:34

Наверно "Не нулевых"...))

Добавлено через 7 минут

Pascal

Uses CRT;
var a:array[1..99] of integer;
    i,n,k:integer;
    s:real;
begin
     ClrScr;
     write('Ââåäèòå êîë-âî ýëåìåíòîâ â ìàññèâå=');Read(n);
     for i:=1 to n do read(a[i]);
     for i:=1 to n do
     begin
          if a[i]=0 then inc(k);
          if a[i]<>0 then s:=s+a[i];
     end;
     s:=s/(n-k);
writeln('Ñðåäíåå àðèôìåòè÷åñêîå=',s);
end.

@Вадим3777 0 / 0 / 0 Регистрация: 05.01.2012 Сообщений: 53
		1
	Вычислить среднее арифметическое 10.05.2012, 15:06. Показов 1050. Ответов 1 Метки нет (Все метки) Вычислить среднее арифметическое нулевых элементов массива целых чисел. Элементы массива вводятся с клавиатуры. 0

	10.05.2012, 15:34

Вычислить среднее арифметическое

Решение