Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Вставить в список L за первым вхождением элемента E все элементы списка L, если E входит в L https://www.cyberforum.ru/ pascal/ thread2228131.html
Составить программу, которая вставляет в список L за первым вхождением элемента E все элементы списка L, если E входит в L. 		Не могу понять как работают result и функция copy Pascal
function RightPosition(str1,str2:string):integer; var i:integer; begin if length(str2)>length(str1)then result:=0 else begin i:=length(str1)-length(str2)+1; result:=0; while(i>=1)and(result=0) do if copy(str1,i,length(str2))=str2 then result:=i
Pascal Используя фрагмент программы, вычислить y=x1+x1x2+x1x2x3.+x1x2.xm Используя фрагмент программы, вычислить y=x1+x1x2+x1x2x3...+x1x2..xm, где xm-либо номер первого отрицательного элемента массива x, либо число n, если в массиве x нет отрицательных элементов Программа уже написана, но ее нужно немного изменить 1)Константа должна быть равна maxn как раз-таки пользователь должен ввести n, а мы должны сравнить чтобы n было больше 1 и меньше maxn 2)надо... https://www.cyberforum.ru/ pascal/ thread2228084.html Pascal (Просто исправить)Используя фрагмент программы, вычислить y=x1+x1x2+x1x2x3.+x1x2.xm Используя фрагмент программы, вычислить y=x1+x1x2+x1x2x3...+x1x2..xm, где xm-либо номер первого отрицательного элемента массива x, либо число n, если в массиве x нет отрицательных элементов Программа уже написана, но ее нужно немного изменить 1)Константа должна быть равна maxn как раз-таки пользователь должен ввести n, а мы должны сравнить чтобы n было больше 1 и меньше maxn 2)надо... https://www.cyberforum.ru/ pascal/ thread2228082.html
Заполнить трехмерный массив целыми числами по правилу Pascal
Заполнить трехмерный массив целыми числами по правилу (элементы на гранях равны единице все остальные нули). По схматичним представлением. 		Pascal Найти индексы наибольшего и наименьшего элементов двухмерного массива https://www.cyberforum.ru/ pascal/ thread2228057.html
Найти индексы наибольшего и наименьшего элементов двухмерного массива. Можете помочь.
Pascal Как определить, есть у двух множеств пересечение, или нет? Как определить, есть у двух множеств пересечение, или нет? https://www.cyberforum.ru/ pascal/ thread2227954.html Pascal Арифметическая прогрессия
Нужна помощь, очень! Арифметическая прогрессия задана натуральными числами a1 и d. Построить множество, состоящее из всех элементов этой прогрессии, входящих в диапазон .
Pascal Найти все корни уравнения https://www.cyberforum.ru/ pascal/ thread2227947.html
Нужна помощь, очень! Буду благодарен если поможете!!! Найти все корни уравнения qx2 + cx + s = 0, где q, c, s - длины векторов соответственно a=(a1,a2,a3,a4) b=(b1,b2,b3) , вспомогательной программой определения произведения двух матриц. 		Pascal Создать новую матрицу, каждый элемент которой равен минимуму из значений соответствующих элементов двух данных матриц https://www.cyberforum.ru/ pascal/ thread2227539.html
Даны две матрицы одинакового размера. создать матрицу каждый элемент которой равен минимальному из значений соответствующих элементов двух данных матриц! помогите
Pascal Поменять элементы в матрице относительно симметрично относительно главной диагонали
Дана квадратная матрица поменять в ней элементы симметричные относительно главной диагонали ! Помогите с кодом плииз 		Pascal Программирование итерационного цикла Функция y(x) задана двумя способами: формулой y = f(x) и ее разложением в бесконечный ряд S. elp:Разработать программу вычисления точного yT и приближенного yP значений функции y(x) при изменении её аргумента x от a до b с шагом Dx. Приближенное значение вычислять путем суммирования членов ряда до достижения требуемой точности ε (|УT - УP| ≤ ε). Предусмотреть завершение... https://www.cyberforum.ru/ pascal/ thread2227414.html
5079 / 2651 / 2349
Регистрация: 10.12.2014
Сообщений: 10,028
13.04.2018, 10:51 0

В массиве из 20 случайных чисел найти наибольший элемент и отсортировать числа справа от него в порядке - Pascal - Ответ 12303837

13.04.2018, 10:51. Показов 1992. Ответов 1
Метки (Все метки)
Лучший ответ Сообщение было отмечено morpex224 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

var a : array [1..20] of Integer; i, j, t, x, y : Integer;
begin
  Randomize;
  for i := 1 to 20 do a[i] := Random(100);
  for i := 1 to 20 do Write(a[i]:3); WriteLn;
  x := 1; for i := 2 to 20 do if a[i] > a[x] then x := i;
  j := x + 1;
  repeat
    y := a[j]; for i := 20 downto j + 1 do if a[i] < y then
        begin t := a[i]; a[i] := y; y := t; end;
    a[j] := y; inc(j);
  until j = 20;
  j := x - 1;
  repeat
    y := a[j]; for i := 1 to j - 1 do if a[i] < y then
        begin t := a[i]; a[i] := y; y := t; end;
    a[j] := y; dec(j);
  until j = 1;
  for i := 1 to 20 do Write(a[i]:3); WriteLn;
end.


Вернуться к обсуждению:
В массиве из 20 случайных чисел найти наибольший элемент и отсортировать числа справа от него в порядке Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 13.04.2018, 10:51
Готовые ответы и решения:

В массиве из случайных чисел найти наибольший элемент
10-и элементная массив..Надо рандомно заполнять символы в массив и в массиве какой символ большой)...

Как найти наибольший элемент в массиве, и вывести все, что после него?
Я уже подвспотел, сидя с этим. Мне нужен индекс максимального элемента, а как его получить - я ума...

Найдите максимальный элемент массива, состоящего из 20 случайных чисел. Отсортировать числа, стоящие до максим
Найдите максимальный элемент массива, состоящего из 20 случайных чисел. Отсортировать числа,...

В массиве из 15 чисел найти наибольший элемент и его индекс в массиве
1) В массиве из 15 чисел найти наибольший элемент и его индекс в массиве.

1
13.04.2018, 10:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 13.04.2018, 10:51
Помогаю со студенческими работами здесь

Отсортировать массив из случайных чисел, после чего найти в массиве заданное значение
помогите пожалуйста :) Натуральное число N (1&lt;=N&lt;=10) вводится с клавиатуры. Целочисленный...

В массиве из 15 вещественных чисел найти наибольший элемент
В массиве из 15 вещественных чисел найти наибольший элемент и поменять его местами с последним...

В массиве A(n) отсортировать положительные числа, выделив их в отдельный массив, в порядке бодростания, а отрицательные числа в порядке убывания
В массиве A(n) отсортировать положительные числа, выделив их в отдельный массив, в порядке...

В одномерном массиве произвольных чисел найти наибольший элемент из из отрицательных
Ребята помогите плиз с задачей &quot;В одномерном массиве произвольных чисел найти наибольший элемент из...

В одномерном массиве из N чисел найти наибольший элемент и его номер
Здравствуйте! Помогите решить задачку. Почитал про массивы, вроде всё понятно, но с кодом проблема(...

В одномерном массиве произвольных чисел найти наибольший элемент из наименьших
Друзья!Помогите Пожалуйста,если это вас не затруднит,с задачей: &quot;В одномерном массиве произвольных...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru