Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Обмен местами max и min элентов массива Приветствую. Задан одномерный массив, заполняется рандомно. Требуется три функции: 1. Поиск позиции максимального элемента 2. Поиск позиции минимального элемента 3. Замена максимального на... https://www.cyberforum.ru/ turbo-pascal/ thread644268.html Процедуры: по заданному номеру месяца определить время года Turbo Pascal
решить через процедуры) написать программу, которая по заданному номеру месяца печатает название времени года. спасибо большое заранее))
Turbo Pascal С клавиатуры вводится последовательно 30 чисел. Найти количество нечетных чисел https://www.cyberforum.ru/ turbo-pascal/ thread644219.html
решить через процедуры. С клавиатуры вводится последовательно 30 чисел. Найти количество нечетных чисел.Массив не использовать. заранее очень благодарна вам=)))
Turbo Pascal Массив записей: Задан набор сведений об экзаменах, сданных студентами за последние несколько лет необходимо составить программу на паскале, осуществляющую заполнение массива записей указанного содержания и структуры. Осуществить заполнение полей записей (вручную или путем вычислений), вывод... https://www.cyberforum.ru/ turbo-pascal/ thread644170.html
Turbo Pascal Вычислить значение числового арифметического выражения, заданного пользователем
Вроде бы и задача не сложная, но застопился на одном месте, помогите кто-нибудь оперативно... Составить программу, которая выполняет вычисление значения числового арифметического выражения,...
Turbo Pascal Вычислить произведение ряда спасибо большое! помогите пожалуйста задачку решить! Составить программу на языке Turbo Pascal вычисления суммы (произведения). где k=3, m=8 https://www.cyberforum.ru/ turbo-pascal/ thread643890.html
Turbo Pascal Вычисление значения функции, содержащей сумму, по рекурентным формулам Долг с прошлой сессии остался, в паскле не сильна, срочно надо, договорилась с преподавателем сегодня встретиться, все перепробовала осталась не могу. Помогите решить задачу вычисления значения... https://www.cyberforum.ru/ turbo-pascal/ thread643788.html Процедуры: в массиве заменить все элементы их квадратами Turbo Pascal
решить с помощью процедур. в произвольном массиве заменить все элементы их квадратами. спасибо заранее)
Turbo Pascal Процедуры и функции: в произвольном массиве заменить все элементы, не кратные 7 на -15. https://www.cyberforum.ru/ turbo-pascal/ thread643749.html
Создать программу с помощью процедуры : в произвольном массиве заменить все элементы, не кратные 7 на -15. помогите пожалуйста) заранее благодарна=)
Turbo Pascal Найти сумму элементов массива, стоящих на четных местах. Подсчитать количество элементов, значения которых меньше 1 помогите пожалуйста решить задачку на паскале: Дан одномерный массив ci , где i=1...n. Найти сумму элементов массива с, стоящих на четных местах. Подсчитать количество элементов массива c, значения... https://www.cyberforum.ru/ turbo-pascal/ thread643742.html
Вычислить значение выражения Turbo Pascal
S=\frac{6!}{\sum_{i=1}^{6}i+5}
Turbo Pascal Вычислить значение выражения Y=ln\left| \alpha +\beta \right|/cos\gamma https://www.cyberforum.ru/ turbo-pascal/ thread643730.html
1294 / 466 / 151
Регистрация: 24.08.2011
Сообщений: 2,249
30.08.2012, 15:24 0

Добавить за каждым числом с наибольшим значением число с минимальным значением и наоброт. - Turbo Pascal - Ответ 3403316

30.08.2012, 15:24. Показов 842. Ответов 6
Метки (Все метки)

Ответ

Цитата Сообщение от dan25 Посмотреть сообщение
for i:=1 to n DO
for j:=2 to n DO
лучше
Pascal
1
2
for i := 1 to n-1 do
 for j := i + 1 to n do
Добавлено через 2 минуты
и метки лучше вообще не использовать
Pascal
1
2
3
4
5
6
7
8
9
10
11
for i := 1 to n - 1 do 
 begin
 if ind then break;
 for j := i + 1 to n do
  if a[i] = a[j] then
   begin
   writeln(a[i],' ',a[j]);
   ind := true;
   break;
   end;
 end;


Вернуться к обсуждению:
Добавить за каждым числом с наибольшим значением число с минимальным значением и наоброт. Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
30.08.2012, 15:24
Готовые ответы и решения:

Поменять местами столбец с наибольшим значением со столбцом с наименьшим значением
в массиве В(3,3) поменять местами столбец , содержащий наиб. значение со столбцом, содержащим наим....

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

Поменять столбец матрицы А с наибольшим значением со столбцом матрицы В с наименьшим значением
Даны две целочисленные матрицы A и B размером M на N, все элементы которых различны. Поменять...

Отметить индексы всех элементов матрицы с наибольшим значением
В данной квадратной матрицы целых чисел порядка n отметить индексы всех элементов с наибольшим...

6
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.08.2012, 15:24

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Преобразовать каждый из массивов, заменив элементы с наибольшим значением
Дан файл F, элементами которого являются целочисленные массивы a0,a1,a2,a3,a4. Требуется...

Все члены, расположенные за членом с наибольшим значением , замените 0.5
Ребят(девушки).я написал програму но... Вот условие: Program zdom; uses crt; const n=10; ...

В матрице найти строку с наибольшим значением чётного числа
Найти строку с наибольшим значением чётного числа для произвольной матрицы. вывести строку на...

Все члены, следующие за членом с наибольшим значением, заменить на 0,5
Дано действительные числа A1,...,An и B1,...,Bn. В последовательности A1,...,An и в...

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