Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Из вектора С сформировать вектор А, содержащий четные элементы вектора С Всем здравствуйте, у меня возникла проблема с решением задачи связанной с вектором, хочу просить помощи специалистов, условия задачи следующие: Из вектора С(n) сформировать вектор А, содержащий четные элементы вектора С и вектор В, содержащий нечетные элементы. Заранее благодарен. https://www.cyberforum.ru/ turbo-pascal/ thread403876.html	Turbo Pascal Вставка символа "конец строки" через каждые N символов Всем привет! Задача такая: дан текстовый файл. Надо через каждые N символов(N<самого длинного слова, N задается пользователем) вставить символ "конец строки" (#10). Есть такая наработка: Repeat Read(f,b); If Length(s)>N then begin Repeat
Turbo Pascal Напишите программу для заполнения элементов массива датчиком случайных чисел помогите пожалуйста с задачами 1. Напишите программу для заполнения элементов массива датчиком случайных чисел • на интервале (111, 555), оформите вывод элементов в строку; • на интервале (-115, 250), оформите вывод элементов в столбик. 2. Создайте и распечатайте в столбик одномерный массив длиной N, следующим образом: А(1) = 4, А(2) = 6, А(3) = 8, А(4) = 10 . . . ? https://www.cyberforum.ru/ turbo-pascal/ thread403844.html	Turbo Pascal Файл не открыт для ввода - почему? Procedure write_numbers; var f :text; i,j :integer; begin assign(f,'num.txt'); rewrite(f); i:=1; j:=1; while not eof(f) do begin {ошибка здесь} while eoln(f) do begin https://www.cyberforum.ru/ turbo-pascal/ thread403836.html
Динамический массив Turbo Pascal Доброго времени суток. Задание Создать типизированный файл с n вещественных чисел. Переписать содержимое файла в массив, разместив его в динамической памяти.( сделал частично, а именно создал и забил в файл ). Поменять местами максимальный элемент и первый.( реализовал, но пока забил в комментарий ). Собственно нужна помощь. Важен вот такой момент, как правильно будет из файла записать в...	Turbo Pascal Решения задач ? https://www.cyberforum.ru/ turbo-pascal/ thread403827.html не мог составить программу и он файле пожалуйста очень надо!!!???
Turbo Pascal Удалите из массива все отрицательные элементы, сдвинув оставшиеся https://www.cyberforum.ru/ turbo-pascal/ thread403825.html Всем привет , помогите пожалуйста, если не туда тема , то перенесите 1. Вводится вещественный одномерный массив (до 100 элементов) . Удалите из него все отрицательные элементы , сдвинув оставшиеся . Полученный массив отсортировать по убыванию модулей элементов . 2. Ввести одномерный целый массив . Если максимальный элемент - четное число , то найти сумму четных по номерам чисел , в противном...	два варианта программы с использованием рекурсии и без Turbo Pascal Для приведённых ниже заданий составить два варианта программы с использованием рекурсии и без использования рекурсии и сравнить их.
Turbo Pascal Работа с типом record, товарищи. https://www.cyberforum.ru/ turbo-pascal/ thread403747.html Ребят. Я всю голову сломал у меня уже чепуха какая-то просто идёт. Не знаю, как приплести сюда тип record. Вывести ассортимент двух мебельных магазинов по видам: кухни, спальни, стенки с указанием количества наборов и цены. Program meb_market; Uses crt; Const nmax = 20; Type mass = array of string; assort = record {Type - assortment of shop} kitc: mass;{Assortment}	Turbo Pascal Вывести на монитор положительные числа в порядке возрастания https://www.cyberforum.ru/ turbo-pascal/ thread403721.html Дан фаил содержащий целые положительные и отрицательные числа. Вывести на монитор Положительные числа в порядке возростания Отрицательные числа в порядке убывания помогите плз. заранее спасибо
Приписать к заданному натуральному числу в начало и в конец заданную цифру. Turbo Pascal Приписать к заданному натуральному числу в начало и в конец заданную цифру. Надо сделать через While. Заранее спасибо.	Turbo Pascal Найти сумму элементов левой четверти матрицы в квадратном массиве выделим четыре четверти, ограниченные главной и побочной диагоналями(без учета элементов, расположенных на диагоналях): верхнюю, нижнюю,левую и правую. Найти сумму элементов левой четверти. ПАСКАЛЬ Заголовок темы изменен модератором. Он должен быть информативным, отображая содержание темы. https://www.cyberforum.ru/ turbo-pascal/ thread403716.html

Сергей_

0 / 0 / 0

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

Сообщений: 12

В матрице поменять местами максимальный и минимальный элементы - Turbo Pascal - Ответ 2269768

10.12.2011, 20:55. Показов 1635. Ответов 7

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

Author24 — интернет-сервис помощи студентам

Здравствуйте, написал программу по матрице, но складывается ощущение что что то здесь не так, прошу проверки у специалистов, вот текст программы:

В матрице поменять местами максимальный и минимальный элементы

Pascal

program z_array;
uses crt;
var a:array[1..100] of integer;
 n,i,min,max:byte;
 temp:integer;
begin
 clrscr;
 writeln('Введите размерность массива');
 readln(n);
 writeln('Введите элементы массива');
for i:=1 to n do
begin
 write('a[',i,']= ');
 readln(a[i]);
end;
 writeln('Данный массив');
for i:=1 to n do
 write(a[i],' ');
 min:=1;
 max:=1;
for i:=2 to n do
begin
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
 temp:= a[min];
 a[min]:=a[max];
 a[max]:=temp;
 writeln;
 writeln('Полученный массив');
for i:=1 to n do
 write(a[i],' ');
 readln;
end.

Вернуться к обсуждению:
В матрице поменять местами максимальный и минимальный элементы Turbo Pascal

Следующий ответ

Лучшие ответы (1)

Сообщение: #2271562

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

10.12.2011, 20:55

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

В матрице найти, в каждой строке максимальный и минимальный элементы и поменять их местами
var a:array of integer; i,j,n,m,max,min,z:integer; begin writeln('n,m'); readln(n,m);...

В матрице размером M x N в каждой строке поменять местами максимальный и минимальный элементы строки.
Люди помогите плиз ...(((... очень надо.... В матрице размером M x N в каждой строке поменять...

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

В матрице поменять местами максимальный по модулю и минимальный по модулю четные элементы
В прямоугольной целочисленной матрице обменять местами максимальный по модулю и минимальный по...

	10.12.2011, 20:55

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

10.12.2011, 20:55

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

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

Поменять местами максимальный и минимальный элементы
Поменять местами максимальный и минимальный элементы

Поменять местами минимальный и максимальный элементы матрицы
Дан двумерный массив, найти наименьший элемент выше побочной диагонали и наименьший элемент ниже...

Найти максимальный и минимальный элементы и поменять их местами
предусмотреть защиту от неправильного ввода данных (В массиве М(45) лежат целые числа. Найти...

Наверх