Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах.

@Шпак · Регистрация: 23.11.2012

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

@Arkaniy · 20.05.2013, 14:53

Delphi

for i:= 1 to 10 do
 begin
  If a[i]<>C then
  begin
   Sum:=sum+a[i];
   Inc(colvo);
  end;
  If (i mod 2=0)and(a[i]<=0) then
   Inc(n);
 end;
LAbel1.Caption := 'srednee = '+FloatToStr(sum/colvo);
Label2.Caption := 'col-vo nepolojitel`nih = '+IntToStr(n);

@Xaki · 28.05.2013, 09:41

То что нужно спасибо

@Шпак 1 / 1 / 0 Регистрация: 23.11.2012 Сообщений: 17
		1
	Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах. 20.05.2013, 14:39. Показов 2206. Ответов 2 Метки нет (Все метки) Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах. 1

@Xaki 0 / 0 / 0 Регистрация: 24.05.2013 Сообщений: 16
	28.05.2013, 09:41	3
	То что нужно спасибо 0

Опции темы

Найти среднее арифметическое чисел, не равных заданному числу С, и подсчитать количество неположительных чисел, стоящих на четных местах.

Решение