M6
0 / 0 / 0
Регистрация: 05.11.2014
Сообщений: 10
1

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

06.11.2014, 00:49. Показов 5129. Ответов 1
Метки нет (Все метки)

Дан целочисленный массив из 40 элементов, все элементы которого – целые числа в интервале от -500 до 500. Напишите, пожалуйста, программу, которая находит среднее арифметическое всех положительных элементов массива, которые кратны первому элементу (делятся нацело на первый элемент). Гарантируется, что первый элемент массива положительный.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.11.2014, 00:49
Ответы с готовыми решениями:

Найти среднее арифметическое элементов, предшествующих первому положительному элементу массива
Найти среднее арифметическое значение элементов массива х(х1,х2...х10), предшествующих первому...

Найти среднее арифметическое тех элементов массива, которые кратны 3
Здравствуйте, помогите составить программу. Даны целые числа а1....а10. Найти среднее...

Найти среднее арифметическое всех положительных элементов массива, которые кратны первому элементу
Дан целочисленный массив из 40 элементов, все элементы которого – целые числа в интервале от -500...

Подсчитать среднее арифметическое положительных элементов массива, кратных его первому элементу
Дан массив из 30 элементов. Каждый элемент может принимать целочислцелочисленные значения от -100...

1
Эксперт Pascal/Delphi
6803 / 4562 / 4817
Регистрация: 05.06.2014
Сообщений: 22,438
06.11.2014, 18:10 2
Лучший ответ Сообщение было отмечено M6 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
{ Дан целочисленный массив из 40 элементов, все элементы которого - целые
числа в интервале от -500 до 500. Напишите, пожалуйста, программу, которая
находит среднее арифметическое всех положительных элементов массива,
которые кратны первому элементу (делятся нацело на первый элемент).
Гарантируется, что первый элемент массива положительный.}
 
const
  n=40;
var
  a:array[1..n] of integer;
  k,i,sum:integer;
  sr:real;
begin
  randomize;
  for i:=1 to n do
    begin
      a[i]:=random(1000)-500;
      write(a[i]:5);
    end;
  {Гарантируется, что первый элемент массива положительный.}
//  a[1]:=10; // отладка
  if a[1]<0 then
    a[1]:=abs(a[1]);
  k:=0;
  sum:=0;
  for i:=1 to n do
    if (a[i]>0) and (a[i] mod a[1]=0) then
      begin
        sum:=sum+a[i];
        k:=k+1;
      end;
  if k=0 then
    begin
      writeln;
      writeln('В массиве нет таких чисел! Программа завершена.');
      exit;
    end;
  writeln;
  sr:=sum/k;
  writeln('Среднее среди чисел: ',sr:8:2,' ',k);
  readln;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.11.2014, 18:10
Помогаю со студенческими работами здесь

Найти среднее арифметическое положительных элементов последовательности, предшествующих первому отрицательному элементу
Дана последовательность из n вещественных чисел. Найти среднее арифметическое положительных...

Найти среднее арифметическое элементов массива, предшествующих первому нулевому элементу
Доброго времени суток, форумчане! Столкнулся с проблемой в коде программы, задание такое: Дан...

Найти произведение и среднее арифметическое элементов массива,предшествующих первому нулевому элементу
Дан массив вещественных чисел.Найти произведение и среднее арифметическое элементов...

Найти среднее арифметическое отрицательных элементов массива, предшествующих первому положительному элементу; проверить, упорядочены ли элементы по во
Помогите, пожалуйста! Сегодня зачет, а у меня ноут полетел!! нужен такой код до трех часов: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru