Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 15.10.2019
Сообщений: 9
1

Если k-й столбец прямоугольной матрицы имеет минимальную сумму элементов, определить сумму элементов столбцов

05.12.2019, 11:54. Показов 578. Ответов 2
Метки нет (Все метки)

Если k-й столбец прямоугольной матрицы имеет минимальную сумму элементов определить сумму элементов столбцов до k-го иначе сумму элементов столбцов после k-го (С подсистемой)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
05.12.2019, 11:54
Ответы с готовыми решениями:

Определить, какой столбец массива имеет минимальную сумму элементов
Дан двумерный массив из 5 строк и 6 столбцов. Определить, какой столбец массива имеет минимальную...

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

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

Найдите минимальную сумму элементов столбцов матрицы
Помогите пожалуйста! Я почти сделал программу, но не много запутался , получилось сделать:...

2
52 / 34 / 23
Регистрация: 26.03.2019
Сообщений: 202
06.12.2019, 11:34 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
var
  mas: array of array of integer;
  
  i, j, M, N, k, sum: integer;
 
begin
  
  writeln('Введите размер матрицы MxN');
  readln(M, N);
  
  setlength(mas, M);
  randomize; 
  //заполнение массива случайными числами
  for i := 0 to length(mas) - 1 do
  begin
    setlength(mas[i], N);
    for j := 0 to N - 1 do
    begin
      mas[i][j] := random(-10, 10);
      write(mas[i][j]:4);
    end;
    writeln();
  end;
  writeln('Введите номер k столбца');
  readln(k);
  sum := mas[0].Sum;
  for i := 1 to length(mas) - 1 do
    if mas[i].Sum < sum then sum := mas[i].Sum;//определение минимальной суммы
  if mas[k - 1].Sum = sum then
  begin
    sum := 0;
    for i := 0 to k - 1 do
      sum += mas[i].Sum;
    writeln(sum);
  end
  else begin
    sum := 0;
    for i := k - 1 to M - 1 do
      sum += mas[i].Sum;
    writeln(sum);
  end;
end.
1
Cyborg Drone
06.12.2019, 14:16     Если k-й столбец прямоугольной матрицы имеет минимальную сумму элементов, определить сумму элементов столбцов
  #3

Не по теме:

SoBadDay, пожалуйста, в общем разделе паскаля не применяйте синтаксис Pascal ABC.NET. Если, по Вашему мнению, без этого обойтись нельзя, то каждый раз указывайте, что программа написана для Pascal ABC.NET.

В идеале, программы, размещённые в данном разделе, должны работать в любом диалекте паскаля.

Не должно быть динамических массивов с их setlength, методов для работы с последовательностями типа .sum, .count и иже с ними, операторов-модификаторов +=, -=, *= и /=, и прочего .NETовского ливера.

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.12.2019, 14:16
Привет! Вот еще темы с ответами:

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

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

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

Найти общую сумму элементов тех столбцов матрицы, сумма элементов в каждом из которых положительна и сумму элеметов главной диагонали
Понадобилось написать программку на паскале, но совершенно забыл как это делать на нём :)


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

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

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