Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

Удалить столбец матрицы, в котором находится минимальный элемент. - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Найти номера всех максимальных элементов матрицы http://www.cyberforum.ru/cpp-beginners/thread282755.html
В прямоугольной матрице, размерностью n*m,найти номера всех максимальных элементов.
C++ Вычислить ряд Помогите пожалуйста написать программу, которая вычисляет ряд: Заранее благодарен!!! http://www.cyberforum.ru/cpp-beginners/thread282754.html
не работает DB Navigator C++
здраствуйте. помогите пожалуйста активизировать компонент DB Navigator. когда запускаю програму кнопки старт и стоп работают, а этот компонент нет, на него нельзя щелкнуть. искал на различных...
Не получается... C++
Составить прогу, которая содержит текующую информацию о заявках на авиабилеты. каждая заявка содержит: -пункт назначения; -номер рейса; -фамилию и инициалы пассажиров; -желаемую дату вылета. прога...
C++ задачка на тему строк http://www.cyberforum.ru/cpp-beginners/thread282736.html
Выписать из символьной строки слова, начинающиеся и заканчивающиеся на одну и ту же букву. помогите сделать пожалуйста...
C++ Вопрос по вектору string'ов Не совсем представляю как работает вектор стрингов std::vector<std::string> texts; Вектор по стандарту располагается в едином куске памяти. Если я использую вектор чаров (массивов), они... подробнее

Показать сообщение отдельно
Ferrym
0 / 0 / 3
Регистрация: 18.01.2012
Сообщений: 17
19.01.2012, 00:10
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Program zd28;
uses crt;
const a:array[1..3,1..4] of integer=((1,2,3,4),(1,2,3,4),(1,2,-3,4));
var i,j,s,m,min:integer; c:array[1..3,1..3] of integer;
begin
clrscr;
for i:=1 to 3 do begin
for j:=1 to 4 do write(a[i,j]:3);   //  Выводим исходную матриу
writeln;
end;
min:=a[1,1];
for i:=1 to 3 do
for j:=1 to 4 do if a[i,j]<min then s:=j; // Находим столбец с минимальным элементом
for i:=1 to 3 do
for j:=1 to s-1 do begin c[i,j]:=a[i,j];  // Производим сдвиг(удаление)влево
end;
for i:=1 to 3 do c[i,3]:=a[i,4];
For i:=1 to 3 do begin
For j:=1 to 3 do
Write(c[i,j]:3);  // Выводим результат
writeln;
End;
end.
Пользуйся
0
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru