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

Минимальный элемент матрицы умножить на максимальный

13.05.2016, 08:33. Просмотров 1483. Ответов 1
Метки нет (Все метки)


Программа выполняет ввод вещественных элементов массива массива A(3,3)по строкам,контрольный вывод массива на дисплей в виде матрицы,определяет максимальный и минимальный элементы массива.Минимальный элемент умножается на аксимальный,максимальный делится на минимальный,после чего на дисплей выводится измененная матрица.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.05.2016, 08:33
Ответы с готовыми решениями:

Найти минимальный элемент 3-й строки, умножить на него все элементы матрицы
Помогите, пожалуйста, решить задачу: 0,7 -0,4 0,1 -0,2 6 0,5 0,5 2 1 1,5 4 ...

Умножить на два максимальный элемент среди элементов на побочной диагонали матрицы
Ввести двумерный массив N N A × , вывести его. Если сумма элементов над главной диагональю...

Найти средний элемент, минимальный элемент и максимальный элемент матрицы
Здравствуйте,помогите решить задачу. Задана двумерная матрица размерностью 12x12 элементов...

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

1
Модератор
62930 / 46950 / 32354
Регистрация: 18.05.2008
Сообщений: 113,763
13.05.2016, 10:23 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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
uses crt;
const n=3;
var a:array[1..n,1..n] of real;
    i,j,imn,jmn,imx,jmx:byte;
    mn,mx:real;
begin
clrscr;
writeln('Введите ',n*n,' элементов вещественной матрицы');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
clrscr;
writeln('Исходная матрица');
mn:=a[1,1];
mx:=a[1,1];
imn:=1;
jmn:=1;
imx:=1;
jmx:=1;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    write(a[i,j]:6:2);
    if a[i,j]<mn then
     begin
      mn:=a[i,j];
      imn:=i;
      jmn:=j;
     end
    else if a[i,j]>mx then
     begin
      mx:=a[i,j];
      imx:=i;
      jmx:=j;
     end;
   end;
  writeln;
 end;
writeln('Минимальный элемент a[',imn,',',jmn,']=',mn:0:2);
writeln('Максимальный элемент a[',imx,',',jmx,']=',mx:0:2);
a[imn,jmn]:=mn*mx;
a[imx,jmx]:=mx/mn;
writeln('Измененная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:6:2);
  writeln;
 end;
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.05.2016, 10:23

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

Максимальный и минимальный элемент строк матрицы
Вот текст программы в нее нужно добавить функции определения строк в которых находится максимальный...

Определить максимальный и минимальный элемент матрицы
9. Дана матрица целых чисел размером 5x3. Определить максимальный и минимальный элемент...

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

Поменять местами строки, содержащие минимальный и максимальный элемент матрицы
Дана матрица размера н на м. Поменять местами строки содержащие минимальный и максимальный элемент...

Поменять местами максимальный элемент матрицы с первым, а минимальный – с последним
Поменять местами максимальный элемент матрицы В(n,m) с его первым элементом, а минимальный элемент...

Поменять местами максимальный и минимальный элемент в заштрихованной части матрицы
Доброй ночи!Помогите пожалуйста написать программу по двумерным массивам!Если можно,полное...


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

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

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