С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
frisek
0 / 0 / 0
Регистрация: 07.10.2013
Сообщений: 36
1

Пошаговая детализация

14.11.2013, 15:39. Просмотров 879. Ответов 1
Метки нет (Все метки)

Дана матрица размера 5 x 10. Найти минимальное значение среди сумм элементов всех ее строк и номер строки с этим минимальным значением.
P.S. Оформить процедурами основное решение задачи, ввод-вывод оформить в главной программе.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.11.2013, 15:39
Ответы с готовыми решениями:

пошаговая детализация
найти периметр трапеции с вершинами в точках A(x1,0), B(x2,0), C(x2,y3),...

Пошаговая детализация
ДОБАВИТЬ В ПРОГУ ПРОЦЕДУРУ ЛИБО ФУНКЦИЮ!!!

Пошаговая детализация
Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном...

Пошаговая детализация
Треугольник АОВ с вершинами A(0,y1), O(0,0), B(x3,0) вращается вокруг прямой...

Пошаговая детализация
Разработать алгоритм методом пошаговой детализации и программу решения задачи,...

1
Puporev
Модератор
55494 / 42589 / 29435
Регистрация: 18.05.2008
Сообщений: 100,744
14.11.2013, 16:07 2
Лучший ответ Сообщение было отмечено frisek как решение

Решение

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
uses crt;
const m=5;
      n=10;
type mtr=array[1..m,1..n] of integer;
procedure min(a:mtr;var mn,imn:integer);
var i,j,s:integer;
begin
for i:=1 to m do
 begin
  s:=0;
  for j:=1 to n do
  s:=s+a[i,j];
  if i=1 then
   begin
    mn:=s;
    imn:=1
   end
   else if s<mn then
   begin
    mn:=s;
    imn:=i
   end;
 end;
end;
var a:mtr;
    i,j,mn,imn:integer;
begin
clrscr;
randomize;
writeln('Матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:3);
   end;
  writeln
 end;
min(a,mn,imn);
write('Минимальная сумма=',mn,' в строке ',imn);
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.11.2013, 16:07

Пошаговая детализация
Дана матрица размера 5 x 10. Поменять местами первый столбец с номером один и...

Пошаговая детализация
Дана квадратная матрица порядка M. Найти суммы элементов ее диагоналей,...

Пошаговая детализация
Help please!!! Дана квадратная матрица порядка M. Найти суммы элементов ее...


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

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

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