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

Составить программу, которая рассчитывает среднее арифметическое значение элементов массива и производит замену всех

22.12.2018, 05:54. Показов 1914. Ответов 6
Метки нет (Все метки)

Дана прямоугольная матрица размерности M x N, состоящая из целых чисел, которые автоматически генерируются случайным образом.

Вариант 7. Составить программу, которая рассчитывает среднее арифметическое значение элементов массива и производит замену всех значений масси-ва, которые меньше среднего арифметического, на 0, и выводит на экран среднее арифметическое значение, исходный и изменённый массив.

Конкретно здесь, нужно все автоматизировать и чтобы писать только M и N, а остальное всё должно работать автоматически, т.е генерироваться числа и выводиться (прикрепил файл, что я смог сделать (Roflyanochka5), это всё что у меня получилось, сказали, что нужно добавить массив MxN, и чтобы всё автоматически работало)

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
43
44
program Roflyanochka5;
 
const nmax=100;
type mas=array[1..nmax] of longint;
procedure Vvod(var v:mas;x:byte;c:char);
var i:byte;
begin
writeln('Введите ',x,' элементов массива ',c);
for i:=1 to x do
 begin
  write('Element[',i,']=');
  readln(v[i]);
 end;
end;
procedure Vyvod(var v:mas;x:byte;c:char);
var i:byte;
begin
writeln(' массив ',c);
for i:=1 to x do
write(v[i],' ');
writeln;
end;
procedure Zamena(var v:mas;x:byte);
var i,j:byte;
    sr:real;
begin
sr:=0;
for i:=1 to x do
sr:=sr+v[i];
sr:=sr/x;
writeln('Среднее арифметическое=',sr:0:2);
for i:=1 to x do
if v[i]<sr then v[i]:=0;
end;
var a,b:mas;
begin
Vvod(a,10,'A');
write('Исходный');
Vyvod(a,10,'A');
Zamena(a,10);
write('Измененный');
Vyvod(a,10,'A');
readln
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.12.2018, 05:54
Ответы с готовыми решениями:

Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива
Cоставить программу, вычисляющую среднее арифметическое всех положительных элементов массива....

Написать программу которая вычисляет среднее арифметическое ненулевых элементов массива
Написать программу которая вычисляет среднее арифметическое ненулевых элементов массива Mэлементы...

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

Алгоритм поиска количества элементов одномерного массива больших, чем среднее арифметическое значение всех
7. Алгоритм поиска количества элементов одномерного мас- сива больших, чем среднее арифметическое...

6
4658 / 2344 / 2216
Регистрация: 10.12.2014
Сообщений: 9,023
22.12.2018, 09:04 2
Лучший ответ Сообщение было отмечено lavrovgg как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
begin
  var(m,n):=ReadLnIteger2('M N :');
  var a:=MatrRandomInteger(m,n,-100,+100);
  a.Println;
  var av:=a.ElementsByRow.Average.Println;
  for var row:=0 to m-1 do
    for var col:=0 to n-1 do
      if a[row,col]<av then a[row,col]:=0;
  a.Println;
end.
1
0 / 0 / 0
Регистрация: 18.12.2018
Сообщений: 15
22.12.2018, 13:54  [ТС] 3
JuriiMW, можете пожалуйста весь код дать? я просто слишком слаб для Паскаля, помогите ^_^
0
4658 / 2344 / 2216
Регистрация: 10.12.2014
Сообщений: 9,023
22.12.2018, 14:12 4
lavrovgg, а чего, по вашему, в приведённом мной коде не хватает?
0
0 / 0 / 0
Регистрация: 18.12.2018
Сообщений: 15
22.12.2018, 15:21  [ТС] 5
JuriiMW, не запускается, нет обозначений, что такое ReadLnIteger2, что такое M N
0
Эксперт Pascal/Delphi
6768 / 4536 / 4807
Регистрация: 05.06.2014
Сообщений: 22,364
22.12.2018, 15:51 6
Опечатка, исправьте на
Pascal
1
var(m, n) := ReadLnInteger2('M N :');
1
0 / 0 / 0
Регистрация: 18.12.2018
Сообщений: 15
22.12.2018, 21:22  [ТС] 7
ZX Spectrum-128, Спасибо огромное <3 <3 <3
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2018, 21:22

Определить среднее значение всех элементов, значение которых превышает среднее для массива
в произвольно заданном одномерном массиве определить среднее значение всех элементов, значение...

Составить программу, которая по заданному номеру и значению соответствующего элемента вычисляла бы значение всех остальных элементов треугольника.
Составить программу (используя оператор выбора case), которая по заданному номеру и значению...

В матрице подсчитать количество элементов, превосходящих среднее арифметическое значение всех элементов.
В заданной матрице A(N,M) подсчитать количество элементов, превосходящих среднее арифметическое...

среднее арифметическое всех нечетных элементов массива
вот ещё 2 задачки 1)Найти среднее арифметическое все нечетных элементов массива 2)элементы...


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

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

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