Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
JuStKeNt
0 / 0 / 0
Регистрация: 21.11.2011
Сообщений: 18
1

Среди элементов матрицы, расположенных выше главной диагонали, найти наибольшее значение

09.01.2012, 20:18. Просмотров 781. Ответов 2
Метки нет (Все метки)

1.Дана целочисленная матрица Х размером 10х10. Среди элементов,расположенных выше главной диагонали,найти наибольшее значение.
2.Дана вещественная матрица А размером 6х8. Добавить к ней столбец, состоящий из средних арифметических положительных значений строк матрицы.

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

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

Поменять местами max и min значения среди элементов, расположенных выше главной диагонали матрицы
Определить и поменять местами максимальное и минимальное значения среди...

Переменные присвоить значение наибольшего из элементов матрицы, расположенных выше главной диагонали
Переменные Z присвоить значение наибольшего из элементов матрицы a ,...

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

Среди элементов матрицы расположенных выше побочной диагонали найти максимальный элемент
Дан двумерный целочисленный массив из n строк и m столбцов. Написать...

Найти минимальный элемент матрицы среди элементов выше главной диагонали
Дана квадратная матрица A(nхn). Найти минимальный элемент матрицы среди...

2
КонецСвета
Почетный модератор
7930 / 3901 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
09.01.2012, 20:51 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от JuStKeNt Посмотреть сообщение
2.Дана вещественная матрица А размером 6х8. Добавить к ней столбец, состоящий из средних арифметических положительных значений строк матрицы.
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
uses crt;
var a: array [1..6,1..9] of real;
    i,j,k: integer;
    sr: real;
begin
writeln('Дана матрица');
for i:=1 to 6 do
    begin
    sr:=0; k:=0;
    for j:=1 to 8 do
        begin
        a[i,j]:=19*random-9;
        write(a[i,j]:5:1);
        if a[i,j]>0 then
           begin
           sr:=sr+a[i,j];
           inc(k);
           end;
        end;
    if k>0 then a[i,9]:=sr/k
       else a[i,9]:=0;
    writeln;
    end;
writeln('Дополненная матрица');
for i:=1 to 6 do
    begin
    sr:=0; k:=0;
    for j:=1 to 9 do
        write(a[i,j]:5:1);
    writeln;
    end;
readln;
end.
а можно и сразу
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
uses crt;
var a: array [1..6,1..9] of real;
    i,j,k: integer;
    sr: real;
begin
writeln('Дана матрица');
for i:=1 to 6 do
    begin
    sr:=0; k:=0;
    for j:=1 to 8 do
        begin
        a[i,j]:=19*random-9;
        write(a[i,j]:5:1);
        if a[i,j]>0 then
           begin
           sr:=sr+a[i,j];
           inc(k);
           end;
        end;
    if k>0 then a[i,9]:=sr/k
       else a[i,9]:=0;
    write(a[i,9]:7:1);
    writeln;
    end;
readln;
end.
1
Петррр
6163 / 3464 / 897
Регистрация: 28.10.2010
Сообщений: 5,928
09.01.2012, 21:20 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
program forum;
uses
    crt;
const
     size = 10;
var
   matrix: array[1..size, 1..size] of integer;
   i, j: integer;
   max: integer;
begin
     clrscr;
     randomize;
     for i := 1 to size do
     begin
          for j := 1 to size do
          begin
               matrix[i, j] := random(10);
               write(matrix[i, j]: 3);
          end;
          writeln;
     end;
     max := - MaxInt;
     for i := 1 to size do
         for j := i + 1 to size do
             if (matrix[i, j] > max) then
                max := matrix[i, j];
     writeln('Max: ', max);
     readkey;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.01.2012, 21:20

Дана квадратная матрица. Найти минимальный элемент матрицы среди элементов выше главной диагонали
В задание — автоматическое заполнение случайными числами в диапазоне Дана...

Дана квадратная матрица. Найти минимальный элемент матрицы среди элементов выше главной диагонали
В задание — автоматическое заполнение случайными числами в диапазоне Дана...

Среди элементов, расположенных ниже главной диагонали матрицы, найти те элементы, которые удовлетворяют условию
8. Среди элементов, расположенных ниже главной диагонали мат¬рицы A(6,6), найти...


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

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

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