Объединить две задачи в одну, либо дописать второе условие в задачу

@GermanAsh · Регистрация: 14.05.2017

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

.блок-схему
Добрый день , некак не могу сдать задачу , у него 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
const nmax=3;              
type matrix=array [1..nmax,1..nmax] of integer;
var a:matrix;    
    i,j,max:integer;   
begin
for i:=1 to nmax do               
  begin
  writeln('введите ',i,'-ю строку');
  for j:=1 to nmax do
    read(a[i][j]);
  end;
max:=a[1][1];    
for i:=1 to nmax do
    for j:=1 to nmax do
      begin
        if max<a[i][j] then
          max:=a[i][j];
      end;
for i:=1 to nmax do    
    for j:=1 to nmax do
      begin
        if max=a[i][j] then
          a[i][j]:=0;
      end;
writeln('полученная матрица:');
for i:=1 to nmax do               
  begin
  for j:=1 to nmax do
    write(a[i][j],' ');
  writeln;                       
  end;      
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
27
28
29
30
31
32
33
34
const 
n=3; 
m=3; 
var a: array [1..n,1..m] of integer; 
i,j,max: integer; 
 
begin 
max :=0; 
writeln ('введите n*m чисел:'); 
 
for i := 1 to M do 
for j := 1 to N do 
read (a[i,j]); 
 
for i:=1 to n do begin 
for j := 1 to m do 
if a[i,j] > max then 
max:=a[i,j]; 
end; 
 
for i:= 1 to n do begin 
for j:= 1 to m do 
if a[i,j] = max then 
a[i,j] := 0; 
end; 
 
for i := 1 to n do begin 
for j := 1 to m do 
write (a[i,j]); 
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
Program aaa; 
uses crt; 
const n=3; m=3; 
var 
a: array [1..n,1..m] of integer; 
i,j: integer; min,sum:integer; 
begin 
clrscr; 
sum:=0; 
for i:=1 to N do 
for j:=1 to M do 
Read(a[i,j]); 
for i:=1 to N do 
begin 
min:=a[i,1]; 
for j:=1 to M do 
begin 
if a[i,j]<min then min:=a[i,j]; 
end; 
sum:=sum+min; 
end; 
writeln('sum=',sum); 
writeln; 
end.

@JuriiMW · 15.05.2017, 06:03

Общее решение меньше:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
begin
  var rows := ReadLnInteger('Строк матрицы:');
  var cols := ReadLnInteger('Колонок матрицы:');
  var a : array [,] of Integer;
  SetLength(a, rows, cols);
  for var row := 1 to rows do
    for var col := 1 to cols do
      a[pred(row), pred(col)] := ReadLnInteger('a[' + row + ',' + col + '] =');
  WriteLn('Введена матрица:'); a.Println(5);
  
  var sum := 0;
  foreach var r in a.Rows do sum += r.Min;
  WriteLn('Сумма наименьших значений строк = ', sum);
  
  var mx := Integer.MinValue;
  foreach var r in a.Rows do mx := max(mx, r.Max);
  for var row := 0 to rows-1 do
    for var col := 0 to cols-1 do
      if a[row,col] = mx then a[row,col] := 0;
  WriteLn('Результат:'); a.Println(5);
end.

@GermanAsh · 16.05.2017, 00:28 **[ТС]**

Большое спасибо)

Новые блоги и статьи Все статьи Все блоги /
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI

@GermanAsh 0 / 0 / 0 Регистрация: 14.05.2017 Сообщений: 6
	16.05.2017, 00:28 [ТС]
	Большое спасибо) 0