Нахождение среднего арифметического

@Megastervochka · Регистрация: 26.12.2011

Дан целочисленный массив из 30 элементов.Элементы массива могут принимать значения от 0 до 1000.Найти среднее арифметическое элементов массива,оканчивающихся на цифру 8. Гарантируется,что в исходном массиве есть хотя бы один такой элемент.

HighPredator · 08.11.2012, 20:53

Pascal

var
  a:array[1..30] of integer;
  i,cnt:integer;
  sr:real;
begin
  {...}
  sr:=0;
  cnt:=0;
  for i:=1 to 30 do
  begin
    if (a mod 10)=8 then 
      begin
        sr:=sr+a[i];
        inc(cnt);
      end;
  end;
  sr:=sr/cnt;
  writeln(sr:0:4);
  readln;
end.

@Megastervochka 0 / 0 / 0 Регистрация: 26.12.2011 Сообщений: 13
		1
	Нахождение среднего арифметического 08.11.2012, 20:19. Показов 2932. Ответов 1 Метки нет (Все метки) Дан целочисленный массив из 30 элементов.Элементы массива могут принимать значения от 0 до 1000.Найти среднее арифметическое элементов массива,оканчивающихся на цифру 8. Гарантируется,что в исходном массиве есть хотя бы один такой элемент. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Нахождение среднего арифметического

Решение