|
|
Другие темы раздела | |
Pascal ABC Определите индекс указанного пользователями элемента массива Определите индекс указанного пользователями элемента массива.Если такого элемента нет,сообщите об этом пользователю.Я написала программу но не знаю что вставить в 13 строчке после if. var a: array of integer; i,ind,n: integer; begin for i := 1 to 5 do begin write('a = '); readln(a); end; write('Введите элемент: '); https://www.cyberforum.ru/ pascalabc/ thread1673534.html |
Если число f равно 26, то увеличить его на 9, иначе уменьшить на 19 Pascal ABC помогите, пожалуйста, написать команду "если...то...иначе" для решения следующей задачи: если число f равно 26, то увеличить его на 9, иначе уменьшить на 19 |
Pascal ABC Составьте программу нахождения гласной, чаще всего встречающейся в слове Х Помогите. Составьте программу нахождения гласной, чаще всего встречающейся в слове Х. https://www.cyberforum.ru/ pascalabc/ thread1673362.html | Pascal ABC Записать в типизированный файл число посимвольно, удалить все четные цифры здравствуйте, помогите написать программу. программа должна записать в типизированный файл число посимвольно, удалить все четные цифры, вывести полученное число. Program vJOBivatel; var chislo, i, j,c:integer; f:file of integer; Begin writeln('Ââåäèòå ÷èñëî'); readln(chislo); Assign (f,'c:/New folder/f.txt'); ReWrite(f); https://www.cyberforum.ru/ pascalabc/ thread1673262.html |
Pascal ABC Найти количество чисел, являющихся полными квадратами Даны n целых чисел. Найти количество чисел, являющихся полными квадратами (с использованием подпрограммы). Спасибо за помощь заранее. |
Pascal ABC Выяснить сколько подтягиваний сделал ученик Дана задача: в школе проводилось соревнование по подтягиванию. За одно подтягивание дается 1 рубль, за 2 дается 2 рубля, за 3 дается 4 рубля. В этом соревновании выиграл ученик и заработал 65535 рублей. Получается дано два аргумента, и к количеству рублей просто прибавляется количество подтягиваний. 1 - 1 рубль, 2- 1(предыдущая нумерация)+1(заработанные рубли)=2 рубля, 3-2+2=4 рубля, 5-4+3=7... https://www.cyberforum.ru/ pascalabc/ thread1673210.html |
Pascal ABC Определить, есть ли среди четырех фамилий фамилия Сидоров Даны четыре фамилия. Определить, есть ли среди них фамилия Сидоров. Вывести соответствующее сообщение. https://www.cyberforum.ru/ pascalabc/ thread1673098.html |
Pascal ABC Вывести список водителей с указанием номерных знаков автомашин Даны массивы F1, ... , F20 - фамилии водителей; NF1, ... , NF20 – номерные знаки автомашин; S1, ... , S20 - пройденный за смену путь, км; RT1, ... , RT20 - расход топлива за смену, л. Вывести список водителей с указанием номерных знаков автомашин, у которых расход топлива на 100 км составил от 8 до 10 л. Отдельно Вывести список водителей, у которых расход топлива более 10 л на 100 км. ... |
Pascal ABC Определить количество элементов, предшествующих первому отрицательному Дан массив P1, ... , P15. Определить N – количество элементов Pi, предшествующих первому отрицательному Pi. Если N<7, то заменить отрицательные Pi на 0. P.s. P1.....P15, Pi - цифры 1, 15 и буква i это индексы https://www.cyberforum.ru/ pascalabc/ thread1673092.html | Pascal ABC Найти элемент матрицы, являющийся максимальным в своей строке и минимальным в своем столбце Здравствуйте, есть вот такая задача: Дана целочисленная матрица размера M × N. Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце. Если такой элемент отсутствует, то вывести 0. Помогите исправить код. var k,x,y,min,max,j,i,M,N:integer; a: array of integer; begin writeln('Введите числа M (M<=10) и N (N<=10)'); read(M); readln(N); writeln('Введите по... https://www.cyberforum.ru/ pascalabc/ thread1673078.html |
Pascal ABC Если первый элемент массива положительный, то найти сумму элементов массива Дан массив A(N). Если первый элемент массива положительный, то найти сумму элементов массива, иначе -произведение.Помогите составить программу, пожалуйста. |
Pascal ABC Сформировать массив записей, содержащий данные по студентам
https://www.cyberforum.ru/ pascalabc/ thread1672953.html Задание: Сформировать массив записей, содержащий данные по студентам в следующем виде: «Фамилия Имя Отчество Группа Оценка». Найти студента по имени используя линейный поиск. Массив я успешно сформировала, а вот найти студента по имени алгоритмом линейного поиска не получается. Кто сможет исправить ошибку?:cry: const N=2; type Any=record Fam:string; Name:string; |
318 / 208 / 162
Регистрация: 08.12.2015
Сообщений: 863
|
||||||
01.03.2016, 19:31 | 0 | |||||
Отсортировать положительные элементы массива, стоящие на четных местах по убыванию методом простого выбора - Pascal ABC - Ответ 882364801.03.2016, 19:31. Показов 2025. Ответов 3
Метки (Все метки)
Ответ
Костыль это хорошо, когда свои ноги целы. А так - делайте все тоже самое, только с массивом А.
Подсказка - сортировку делайте при условии
Массив b уберите вообще. Вернуться к обсуждению: Отсортировать положительные элементы массива, стоящие на четных местах по убыванию методом простого выбора Pascal ABC
0
|
01.03.2016, 19:31 | |
Готовые ответы и решения:
3
Отсортировать по убыванию элементы одномерного массива, стоящие на нечетных местах, методом простого выбора Отсортировать по убыванию элементы одномерного массива, стоящие на нечетных местах, методом простого обмена Отсортировать с функцией простого выбора элементы массива, стоящие на нечетных местах. Отсортировать элементы массива стоящие на четных местах по убыванию |
01.03.2016, 19:31 | |
01.03.2016, 19:31 | |
Помогаю со студенческими работами здесь
0
Отсортировать с помощью прямого выбора элементы массива, стоящие на четных местах Отсортировать по убыванию элементы, стоящие на четных местах, а элементы стоящие на нечетных местах - по возрастанию Отсортировать по убыванию положительные элементы массива методом выбора Отсортировать по убыванию положительные элементы массива методом выбора |