Помогите, пожалуйста, дописать программу
Дана действительная матрица А размером M*N, где M,N - заданные натуральные числа. Найти среднее значение всех элементов матрицы.
Среднее я нашел как сформировать одномерный массив??? Сформировать одномерный массив В из тех элементов матрицы, которые больше полученного значения. Вывести полученный массив. |
program summa;
var k, i, j, m, n: integer; sr,s: real; a: array[1..50,1..50] of real; begin writeln('v vedite kolichestvo strok'); readln(m); writeln('v vedite kolichestvo stolbcov'); readln(n); writeln('v vedite elementi matrici '); k:=m*n; for i:=1 to m do {block vvoda} for j:=1 to n do begin writeln('a[', i,',', j, '] = '); readln(a[i,j]); end; s:=0; for i:=1 to m do {vichislenue summ} for j:=1 to n do s:=s+a[i,j]; sr:= s/k; writeln('vivod srednego znacheniya'); writeln('sr=', sr:2:2); end. вот моя программа для вычисления среднего как ее дописать чтобы!Сформировать одномерный массив В из тех элементов матрицы, которые больше полученного значения. Вывести полученный массив. |
Нужен сам массив размером 1..2500 и переменная p, в которой изначально будет 1.
После этого нужно пройти весь массив, и если значение элемента превосходит среднее, записать его в массив на место с индексом p, а p увеличить на 1 |
Можете помочь кодом программы я просто завис и не могу програмно организовать это сравнение((((
|
Long Cat, Спасибо сам написал благодаря твоему сообщению)))
|
Не за что :-)
|
Часовой пояс GMT +4, время: 15:53. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.