Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Serjant0007
2 / 2 / 1
Регистрация: 21.06.2010
Сообщений: 247
1

Найти минимальный, максимальный элементы матрицы

27.09.2011, 14:58. Просмотров 267. Ответов 1
Метки нет (Все метки)

Дана матрица размером 5*5. Найти ее минимальный, максимальный элементы. Заменить элементы первой строки на среднее арифметическое всех элементов.
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
program max_min_cr;
Var j,i,n,m:integer;
cr,min,max:real; a:array[1..100, 1..100] of real;
begin
Writeln('vvedi stolb i str');
Readln(n,m);
randomize;
for i:=1 to n do begin
for j:=1 to m do
begin
a[i,j] := random(9);
write(a[i,j]:4);
end;
writeln;
end;
cr:=0; begin
for i:=1 to n do
cr:=(cr+a[i,j])/n end;
max:=a[1,1];
for i:=2 to n do
if a[i,j]>max then
max:=a[i,j];
Writeln('maximalniy element= ',max:2:2);
min:=a[1,1];
for i:=2 to n do
if a[i,j]<min then
min:=a[i,j];
Writeln('minimalniy element= ',min:2:2);
Writeln('crednee arif= ',cr:2:2);
for i:=1 to n do
if i=1 then a[i,j]:=cr;
for i:=1 to n do
write(a[i,j]:2:2);
Readln
end.
вроде бы все правильно только не заменяет первую строку на ср арифметическое, и не правильно потом выводит матрицу после замены.

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

0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.09.2011, 14:58
Ответы с готовыми решениями:

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

Найти максимальный и минимальный элементы матрицы
помогите пожалуйста, напишите код программы Дан массив А(m,n), найти...

Найти максимальный и минимальный элементы матрицы
помогите пожалуйста, напишите код программы Дан массив А(m,n), найти...

Найти минимальный и максимальный элементы матрицы
Дана матрица А. а) найти минимальный и максимальный элементы матрицы б)...

Сформировать матрицу, вычислив элементы с помощью функции, найти минимальный и максимальный элементы и след матрицы
Сформировать квадратную матрицу А порядка n, элемента которой aij определяються...

1
I2um1
Злой няш
1408 / 1106 / 374
Регистрация: 05.04.2010
Сообщений: 1,949
27.09.2011, 15:29 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
27
28
29
30
31
const n = 5; m = 5;
var a : array[1..n, 1..m] of real; i, j : integer; avg, min, max : real;
begin
   randomize;
   {заполняем массив и считаем сумму для среднего арифметического значения}
   for i := 1 to n do begin
      for j := 1 to m do begin
         a[i, j] := random(9);
         avg := avg + a[i, j];
         write(a[i, j] : 4 : 0)
      end;
      writeln
   end;
   {подсчет разных значений и замена первой строки}
   avg := avg / (n * m);
   min := a[1, 1]; max := a[1, 1];
   for i := 1 to n do
      for j := 1 to m do begin
         if min > a[i, j] then min := a[i, j];
         if max < a[i, j] then max := a[i, j];
         if i = 1 then a[i, j] := avg
      end;
   {вывод результатов}
   writeln('avg = ', avg : 0 : 2);
   writeln('min = ', min : 0 : 2);
   writeln('max = ', max : 0 : 2);
   for i := 1 to n do begin
      for j := 1 to m do write(a[i, j] : 0 : 2, ' ');
      writeln
   end
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.09.2011, 15:29

Найти в каждой строке матрицы максимальный и минимальный элементы
Решал вместе с учителем,всю пару протупили так и нерешили. 1.Дана матрица B....

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

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


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

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

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