Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal В двух матрицах строки расположить в порядке убывания элементов первого столбца https://www.cyberforum.ru/ pascal/ thread101891.html Я наверное всех уже достал. Извините пожалуйста и не откажите еще в одной услуге. В двух матрицах строки расположить в порядке убывания элементов первого столбца.	Подскажите или объясните Pascal Здраствуйте я пока не програмист и не хакер но тем не мение хотел бы стать и тем и другим. При изучении паскаля у меня не виходит написание прогрм. Пишет шо есть ошибки. Так вот. Я хотел бы...
Pascal Упорядочить столбцы матрицы Всем привет! народ, очень нужнои причем срочно!: упорядочить столбцы матрицы по убыванию суммы уникальных элементов. Я сделал, но мне сказали что бы программа в программе была... а вот мой вариант,... https://www.cyberforum.ru/ pascal/ thread101884.html	Pascal подсчитать частоты символов из файла https://www.cyberforum.ru/ pascal/ thread101877.html у меня есть еще задача которую я не могу понять дан текстовый файл,подсчитать частоты символов из этого файла
Вставка элемента в упорядоченный массив Pascal плиз!!!!! Из массива удалить максимальный элемент, а затем расположить элементы массива в порядке убывания модулей и вставить заданное число, не нарушая порядка расположения.	Pascal Рендомное заполнение вектора строковыми данными https://www.cyberforum.ru/ pascal/ thread101871.html Начал писать программу, остановился на самом начале. Надо заполнить вектор произвольными словами. написал вот это: var i:integer; s:array of string; begin for i:=1 to n do...
Pascal Массив https://www.cyberforum.ru/ pascal/ thread101865.html Здравствуйте, мне нужно написать программу которая при вводе 10 чисел поставит эти числа по порядку, по возрастанию . Например: ввожу я числа в столбик 1,6,3,5,4,2,10,7,9,8 и программа переделывает и...	Pascal Ошибка в функции Исправьте, пожалуйста, ошибку. У меня функция выводит значения нули, не понимаю почему :( Program P6; Uses crt; Var A1,A2,B1,B2,C1,C2:Integer; x1,x2:real; Procedure Vvod(Var...
Pascal Вывести на экран каждую вторую строку файла https://www.cyberforum.ru/ pascal/ thread101843.html Дан текстовый файл хранящийся в текстовом файле вывести на экран каждую вторую строку файла	Pascal Тема "Одномерные массивы" https://www.cyberforum.ru/ pascal/ thread101841.html Одномерный массив А длиной N<=20 заполнить случайными числами из диапазона . Составить программу определения: 1) сумму положительных элементов массива; 2) подсчитать количество четных элементов...
Подскажите как дописать программу Pascal В матрице 6х6 заданной случайным образом. Подсчитать количество отрицательных элементов, стоящих выше главной диагонали, ниже побочной диагонали и сравнить их. Я написал программу, но почему она...	Pascal Программирование с записями. Кто желает помочь незнающему студенту Описать, используя структуру данных запись, квартиросъемщика (фамилия и инициалы, город, улица, дом, квартира, количество комнат). Предусмотреть возможность... https://www.cyberforum.ru/ pascal/ thread101838.html

Puporev

Почетный модератор

64288 / 47587 / 32739

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

Сообщений: 115,182

07.03.2010, 09:36

Линейные массивы - Pascal - Ответ 585156

07.03.2010, 09:36. Показов 1269. Ответов 1

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

Сообщение было отмечено Laines как решение

Решение

Pascal

uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,i1,i2:byte;
    mx:integer;
begin
clrscr;
randomize;
repeat
write('Введите половину размера массива до ',nmax div 2,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив:');
for i:=1 to 2*n do
 begin
  a[i]:=random(20)+1;
  write(a[i],' ');
 end;
writeln;
writeln;
mx:=a[1]+a[2*n];
i1:=1;i2:=2*n;
for i:=1 to n do
if a[i]+a[2*n-i+1]>mx then
  begin
   mx:=a[i]+a[2*n-i+1];
   i1:=a[i];
   i2:=a[2*n-i+1];
  end;
write('Максимальную сумму имеют элементы ',i1,'  ',i2,'  сумма=',mx);
readln
end.

Вернуться к обсуждению:
Линейные массивы Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

07.03.2010, 09:36

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

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

Линейные массивы
Дан массив действительных чисел, размерность которого N. Подсчитать сколько в нем отрицательных,...

Линейные массивы
Написать программу, которая упорядочивает по убыванию только те элементы заданной...

Линейные массивы
Нужно написать программу, которая проверяет – образуют ли элементы заданного массива возрастающую...

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

07.03.2010, 09:36

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

Линейные массивы
Помогите плиз решить задачку. Дан массив натуральных чисел. Найти сумму элементов, кратных...

Линейные массивы.
Поправьте пожалуйста код программы в соответствии с условием. Cоставить программу, которая находит...

Линейные массивы
Написать программу, которая упорядочивает по убыванию элементы заданной последовательности с...

Линейные массивы
Помогите решить. плизз. Задача1. Дан массив действительных чисел, размерность которого N....

Наверх