Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.53/15: Рейтинг темы: голосов - 15, средняя оценка - 4.53
0 / 0 / 0
Регистрация: 21.02.2019
Сообщений: 5
1

Дан массив Р(30) целых чисел. Найти среднее арифметическое тех элементов массива, которые кратны трем

21.02.2019, 18:08. Показов 3070. Ответов 1
Метки нет (Все метки)

Добрый вечер! Если не сложно подскажите, что не так в моем коде.
Вот задание:
Дан массив Р(30) целых чисел. Найти среднее арифметическое тех элементов массива, которые кратны трем, использую функцию.
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
const
  n = 30;
 
var
  P: array[1..n] of integer;
  
  i, q: integer;
  r, e, k, w, t: real;
 
function SR(r, e: real): real;
begin
  SR := r / e;
end;
 
begin
  e := 0;
  for i := 1 to n do
  begin
    P[i] := random(5, 10);
    write(P[i], '(', i, ')', ' ');
  end;
  writeln;
  for i := 1 to n do 
    if P[i] div 3 = 0 then
    begin
      w := w + P[i];
      t := t + 1;     
    end;
  writeln;
  write(SR(w, t));
end.
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2019, 18:08
Ответы с готовыми решениями:

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

Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.
ПОМОГИТЕ пож.... Дан массив целых чисел. Найти сумму элементов массива,которые заканчиваются на 5.

Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые являются степенью пятерки
Дан массив из n целых неотрицательных чисел. Найти количество элементов этого массива, которые...

Найти сумму элементов массива, которые кратны трем
Задать случайным образом одномерный массив из 18 целочисленных элементов, принадлежащих отрезку ....

1
Модератор
63406 / 47088 / 32457
Регистрация: 18.05.2008
Сообщений: 114,137
21.02.2019, 18:30 2
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
const n = 30;
var  P: array[1..n] of integer;
     t: integer;
     w: real;
begin
randomize;
t:=0;
w:=0;
for var i := 1 to n do
  begin
    P[i] := random(5, 10);
    write(P[i]:4);
    if P[i] mod 3=0 then
     begin
      t:=t+1;
      w:=w+P[i];
     end; 
  end;
  writeln;
if t=0 then write('Нет чисел кратных 3')
else  
 begin
  w:=w/t;
  write('Среднее арифметическое чисел кратных 3=',w:0:2)
 end; 
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.02.2019, 18:30

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дан вещественный массив А[4][3]. Найти среднее арифметическое значение положительных элементов массива А
Дан вещественный массив А. Найти среднее арифметическое значение положительных элементов массива А....

Для заданного массива из m целых чисел найти среднее арифметическое его элементов
Для заданного массива из m целых чисел найти среднее арифметическое его элементов, вывести индексы...

Найти сумму тех элементов массива, которые кратны K
В массив А занесены натуральные числа.Найти сумму тех элементов,которые кратны данному K.

Дан массив состоящий N (> 1) целых чисел. Найти среднее значение первого и последнего элемента массива
Дан массив состоящий N (> 1) целых чисел. Найти среднее значение первого и последнего элемента...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.