Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Определить среднее арифметическое элементов последней строки https://www.cyberforum.ru/ pascalabc-net/ thread2407545.html
Сформировать двухмерный массив С(11,11) в диапозоне , определить среднее арифметическое элементов последней строки.
Исправить ошибку PascalABC.NET
type cosm = class private cnaz: string; cfirm: string; ott: integer; function readdec: integer; procedure writedec(d:integer); public property naz: string read cnaz write...
PascalABC.NET Открыть видео (GrapABC) https://www.cyberforum.ru/ pascalabc-net/ thread2407501.html
как в граф. модуле GraphABC открыть видео?
PascalABC.NET Найти сумму сходящего ряда найти сумму сходящего ряда, где x -заданное вещественное число. Считать, что сумма ряда равно Sn, если |An+1|<e, e - заданная погрешность вычисления может быть кто то осилит? \sum_{n=1}^{}... https://www.cyberforum.ru/ pascalabc-net/ thread2407440.html
PascalABC.NET Найти объём и площадь полной поверхности шара
Нужно написать программу в Паскаль через классы Пожалуйста Шара задается радиусом, найти объём и площадь полной поверхности шара
PascalABC.NET Сформировать массив A(10,10) так, чтобы элементы заштрихованной области были равны 2[6,10] https://www.cyberforum.ru/ pascalabc-net/ thread2407399.html
Сформировать массив A(10,10) так, чтобы элементы заштрихованной области были равны 2,а остальные были равны 3.
PascalABC.NET Исправить код Машина не выводит матрицу с поворотами. uses crt; type mtr=array of byte; procedure povorot(var a:mtr;k:byte); var p,i,j,x,n:byte; begin for p:=1 to k do for i:=1 to n div 2 do for j:=i to... https://www.cyberforum.ru/ pascalabc-net/ thread2407332.html PascalABC.NET Определить произведение элементов шестой строки массива
Определить произведение элементов шестой строки массива.
PascalABC.NET Проверить правильность контрольного значения https://www.cyberforum.ru/ pascalabc-net/ thread2407161.html
Я тупень. Проверьте, поправьте, не бейте. Скиньте решение Полякова кто может. Я нашёл только где НЕ ДЕЛИТСЯ на 26 На спутнике «Восход» установлен прибор, предназначенный для измерения солнечной...
PascalABC.NET Закрыть картинку после запуска Как закрыть картинку после запуска? пример кода: uses crt; begin exec('C:\Путь\картинка.jpg'); end. как сделать так,что бы через 10 секунд она закрылась? https://www.cyberforum.ru/ pascalabc-net/ thread2407052.html
PascalABC.NET Лабиринт. Нужна идея: Как сделать поле лабиринта рандомным, но с одним верным путем
Начал писать код для игры в лабиринт, но не могу придумать, как будет работать рандом. То что выделено {} это мое примерное представление, как это должно работать. Прошу вас поправить ту часть, где...
PascalABC.NET Сделать программу, где экран будет заполнен разноцветными кругами различных диаметров Graph Pascal https://www.cyberforum.ru/ pascalabc-net/ thread2406978.html
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
21.02.2019, 18:30 0

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

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

Ответ

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.


Вернуться к обсуждению:
Дан массив Р(30) целых чисел. Найти среднее арифметическое тех элементов массива, которые кратны трем PascalABC.NET
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.02.2019, 18:30
Готовые ответы и решения:

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

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

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

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

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 (&gt; 1) целых чисел. Найти среднее значение первого и последнего элемента...

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