Для каждой строки матрицы найти произведение максимального и минимального элементов

@nikitocver · Регистрация: 17.10.2015

Студворк — интернет-сервис помощи студентам

По каждой строке двумерного массива найти произведение максимально и минимального элементов(Не через max, min , а через обычные буквы)

@JuriiMW · 11.01.2016, 05:47

А разве max и min не из обычных букв?

Delphi
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
const
  Rows = 5;
  Cols = 7;
var
  a : array [1..Rows, 1..Cols] of Integer;
  Row, Col, Max, Min : Integer;
begin
  Randomize;
  for Row := 1 to Rows do
    begin
      for Col := 1 to Cols do
        begin
          a[Row, Col] := Random(9) + 1;
          Write(a[Row, Col]:3);
        end;
      WriteLn;
    end;
  WriteLn;
  for Row := 1 to Rows do
    begin
      Max := a[Row, 1]; Min := a[Row, 1];
      for Col := 2 to Cols do
        if Max < a[Row, Col] then Max := a[Row, Col]
        else if Min > a[Row, Col] then Min := a[Row, Col];
      Write(Row, ' : ', Min * Max, '    ');
    end;
  WriteLn;
end.

@bormant · 11.01.2016, 12:25

Сообщение от JuriiMW

разве max и min не из обычных букв?

Наверное, чтоб вот так не получилось:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{$mode ObjFPC}
uses Math;
const
  Rows=5; Cols=7;
var
  a: array [1..Rows, 1..Cols] of Integer;
  Row, Col: Integer;
begin
  Randomize;
  for Row:=1 to Rows do begin
    for Col:=1 to Cols do begin
      a[Row,Col]:=Random(9)+1; Write(a[Row,Col]:3);
    end;
    WriteLn(' | ',MinValue(a[Row])*MaxValue(a[Row]));
  end;
end.

@TonyWinter · 11.01.2016, 13:05

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
const n=3;
var
a:array [1..n,1..n] of real;
i,j:byte;
a_max,a_min:real;
begin
 
for i:=1 to n do 
   for j:=1 to n do
      begin
      write('[',i,'][',j,']: ');
      read(a[i,j]);
      end;
 
for i:=1 to n do
  begin
    for j:=1 to n do 
      begin
      write(a[i,j]:5);
      end;
  writeln;    
  end;    
 
 
for i:=1 to n do
  begin
  a_max:=A[i,1];
  a_min:=A[i,1];
    for j:=1 to n do
      begin
      if (A[i,j]>a_max) then a_max:=A[i,j];
      if (A[i,j]<a_min) then a_min:=A[i,j];
      end;
  writeln('Максимальный элемент ',i,' строки - ',a_max);    
  writeln('Минимальный элемент ',i,' строки - ',a_min);   
  writeln('Произведение максимального и минимального элементов ',i,' строки - ',a_max*a_min);  
  end;
 
 
end.

[1][1]: 2.71
[1][2]: 3.14
[1][3]: 3.56
[2][1]: 0.17
[2][2]: 0.12
[2][3]: 0.11
[3][1]: 13.00
[3][2]: 14
[3][3]: 11.11
2.71 3.14 3.56
0.17 0.12 0.11
13 14 11.11
Максимальный элемент 1 строки - 3.56
Минимальный элемент 1 строки - 2.71
Произведение максимального и минимального элементов 1 строки - 9.6476
Максимальный элемент 2 строки - 0.17
Минимальный элемент 2 строки - 0.11
Произведение максимального и минимального элементов 2 строки - 0.0187
Максимальный элемент 3 строки - 14
Минимальный элемент 3 строки - 11.11
Произведение максимального и минимального элементов 3 строки - 155.54

@bormant · 11.01.2016, 17:20

TonyWinter,
зачем n раз сравнивать число с самим собой?

Pascal
29
    for j:=2 to n do

@TonyWinter · 11.01.2016, 18:11

bormant, действительно, не заметил,спасибо.
Первый элемент строки мы принимаем за максимальный элемент и минимальный, а потом сравниваем с другими элементами.

Pascal
1
j:=1 to n do

Действительно, зачем сравниваю с самим собой, чего-то не заметил вообще

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

Для каждой строки матрицы найти произведение максимального и минимального элементов

Решение

Решение

@nikitocver 0 / 0 / 0 Регистрация: 17.10.2015 Сообщений: 10

	Для каждой строки матрицы найти произведение максимального и минимального элементов 11.01.2016, 04:17. Показов 1719. Ответов 5 Метки нет (Все метки) По каждой строке двумерного массива найти произведение максимально и минимального элементов(Не через max, min , а через обычные буквы) 0