Pascal (Паскаль)

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal Создать массив слов строки https://www.cyberforum.ru/ pascal/ thread81375.html 1) Дана строка длиной не более 255 символов. Строка содержит слова, разделенные между собой одним пробелом. Создать массив слов строки. Напечатать все слова, имеющие длину от 5 до 10 символов. 2) Найти площадь кольца, внутренний радиус которого равен r, а внешний - R (R>r) 3) В одномерном массиве, состоящем из n целочисленных элементов, вычислить сумму положительных элементов массива	Pascal Расположить элементы массива так, чтобы в начале располагались все отрицательные элементы, а затем положительные. Расположить элементы массива так, чтобы в начале располагались все отрицательные элементы, а затем положительные. В одномерном массиве.
Pascal Для матрицы А=5х5 вычислить сумму диагональных элементов. Приветствую! помогите с решением задачи, вроде ничего особенного, но не пойму: Для матрицы А=5х5 вычислить сумму диагональных элементов. зарание спасибо :) https://www.cyberforum.ru/ pascal/ thread81344.html	Pascal Сформировать выходной файл, который изображает структуру дерева в достаточно ясной, графической форме Помогите пожалуйста меня на этой теме не было. Сформировать выходной файл, который изображает структуру дерева в достаточно ясной, графической форме(соединяя узлы горизонтальными и вертикальными линиями). type data_type = integer; ptree = ^tree; tree = record data: data_type; left, right: ptree end; child_type = (child_left, child_right); function go_child(start: ptree; child:... https://www.cyberforum.ru/ pascal/ thread81340.html
Pascal Определить размер вклада через T дней. Имеется начальный вклад - S.По первым дням недели с вклада снимается сумма,равная А.По шестым дням на вклад поступает сумма,равна В.В течении этих дней размер вклада увеличивается на К%.При этом начисления процентов в первый и шерстой дни произведения до снятия и до поступления денег.Определить размер вклада через T дней.	Pascal Определить номер строки в матрице, сумма элементов которого максимальна определить номер строки, сумма элементов которого максимальна https://www.cyberforum.ru/ pascal/ thread81330.html
Pascal Определить количество нулевых элементов в каждом столбце матрицы https://www.cyberforum.ru/ pascal/ thread81329.html определить:количество нулевых элементов в каждом столбце	Pascal Вычислить сумму элементов массива,расположенных между первым и последним положением. Дан одномерный массив.Вычислить: сумму элементов,расположенных между первым и последним положением. Заменить отрицательные элементы нулями и расположить нули в начале массива, а затем все положительные элементы.
Pascal Вычислить Y=cos(1+cos(2+....+cos(39+cos40)...) https://www.cyberforum.ru/ pascal/ thread81325.html Вычислить Y=cos(1+cos(2+....+cos(39+cos40)... Спасибо заранее.	Pascal Определить сумму элементов в тех строках матрицы, которые не содержат отрицательных значений https://www.cyberforum.ru/ pascal/ thread81317.html Дан двумерный массив. определить сумму элементов в тех строках,которые не содержат отрицательных значений.(нужно вывести массив).
Pascal построить блок схемы Пожалуеста помогите составить две блок схемы Первая. program z5; uses crt; var n,m,i,j,x,k:integer; a:arrayof real; begin clrscr; randomize; write('Количество строк n=');readln(n);	Pascal Вычислить произведение элементов массива, расположенных между первым и вторым нулевыми элементами https://www.cyberforum.ru/ pascal/ thread81309.html помогите Надо вычислить произведение элементов массива, расположенных между первым и вторым нулевыми элементами;

System.exe

92 / 88 / 58

Регистрация: 14.05.2009

Сообщений: 202

29.12.2009, 17:57

Упорядочить по невозрастанию массив - Pascal - Ответ 449832

29.12.2009, 17:57. Показов 2878. Ответов 4

Метки (Все метки)

Ответ

Pascal

Var i,j,x:integer;
a:array[1..10] of integer;
begin
randomize;
for i:=1 to 10 do
a[i]:=random(50)-10;
for i:=1 to 10 do
write(a[i]:10);
writeln;
for i:=1 to 10 do
begin
for j:=i to 10 do
begin
if a[j]<a[j+1] then
begin
x:=a[j];
a[j]:=a[j+1];
a[j+1]:=x
end;
else continue
end;
end;
for i:=1 to 10 do
write(a[i]:10)
end.

Добавлено через 4 минуты
Тогда напиши вместо double - real.

Добавлено через 15 секунд
Тогда напиши вместо double - real.

Вернуться к обсуждению:
Упорядочить по невозрастанию массив Pascal

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

29.12.2009, 17:57

Готовые ответы и решения:

Упорядочить по невозрастанию массив, содержащий 15 вещественных чисел.
Упорядочить по невозрастанию массив, содержащий 15 вещественных чисел.

Упорядочить матрицу по невозрастанию элементов 5 столбца
help!! помогите решить вот такую задачку. Дан двумерный массив, содержащий 14 строк и 15 столбцов....

Упорядочить по невозрастанию те элементы массива, которые не находятся между минимальным и максимальным
Дан целочисленный массив x размера n. Упорядочить по невозрастанию те элементы массива, которые не...

Упорядочить элементы столбцов по невозрастанию суммы цифр. Использовать процедуры и функции
Дана целочисленная матрица {Aij}i=1...n;j=1..n , n<=100. Если в матрице нет строк с нулевой суммой...

	29.12.2009, 17:57

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

29.12.2009, 17:57

Помогаю со студенческими работами здесь

Упорядочить (переставить) строки матрицы по невозрастанию сумм элементов строки
Нужно составить программу,как можно проще и короче,помогите! Дана действительная матрица...

Задан массив В[120]. Отсортировать все элементы, стоящие на нечетных местах по невозрастанию
Задан массив В. Отсортировать все элементы, стоящие на нечетных местах по невозрастанию.

Упорядочить массив по невозрастанию сумм оценок
1) Дан массив записей. Каждая запись содержит сведения о студенте группы: фамилию, оценки по 5...

Упорядочить массив по невозрастанию элементов пятого столбца
Дан двумерный массив содержащий 4 строки и 5 столбцов. Элементами массива являются целые числа....

Наверх