Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 10.11.2015
Сообщений: 2

Поменять элементы в разных половинах массива

10.11.2015, 02:54. Показов 1142. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Поменять местами самый последний максимальный элемент в первой половине массива с самым первым минимальным элементом во второй половине массива.
Спасибо за помощь.
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
10.11.2015, 02:54
Ответы с готовыми решениями:

В матрице поменять местами наименьшие элементы в ее левой и правой половинах
Методические указания 1. Если обрабатываются массивы чисел, то ввод и вывод массивов...

Поменять местами наибольшие элементы в верхней и нижней половинах матрицы
В матрице A( n- строк, m- столбцов; n- четное) поменять местами наибольшие элементы в ее верхней и...

Поменять местами наибольшие элементы в верхней и нижней половинах матрицы (подпрограммы)
В матрице A( n- строк, m- столбцов; n- четное) поменять местами наибольшие элементы в ее верхней и...

1
охотник
 Аватар для vint-81
1011 / 535 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
10.11.2015, 07:33
Лучший ответ Сообщение было отмечено ZX Spectrum-128 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
const n=10;
type mas=array[1..n] of integer;
var a:mas;
    i,max,min,tmp:integer;
procedure vv_mas(var x:mas;s:string[3];f:boolean);
var i:integer;
begin
  writeln(s);
  for i:=1 to n do
   begin
    if f then x[i]:=random(11);
    write(a[i],' ')
   end;
  writeln; 
end;
begin
 vv_mas(a,'A:',true);
 max:=1;min:=n;
 for i:=2 to (n+1) div 2 do
  begin
   if a[i]>=a[max] then max:=i;
   if a[n-i+1]<=a[min] then min:=n-i+1;
  end;
 writeln('последний максимальный в первой половине: ',a[max]); 
 writeln('первый минимальный во второй половине: ',a[min]);
 tmp:=a[min];a[min]:=a[max];a[max]:=tmp;
 vv_mas(a,'A'':',false)
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
10.11.2015, 07:33
Помогаю со студенческими работами здесь

Поменять местами элементы массива А, имеющего нечётный индекс, на элементы массива В, имеющие чётный индекс, и найти минимальные элементы Амах и В мах
даны два массива А и В по 20 элементов в каждом. Поменять местами элементы массива А, имеющего...

Количество отрицательных чисел в половинах массива
Написать программу, которая выводит на экран «1», если в первой половине массива отрицательных...

Поменять местами D2DFE из первого массива и R2D2 из второго массива, используя несколько разных способов адресации
Ассемблер Даны два массива z1 DW 0EFE1 D2DFE 32ABC z2 DW 1EFEA A2EF R2D2 Не за бесплатно

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

Найти первый минимальный и последний максимальный элементы массива. Поменять местами столбцы, содержащие эти элементы
Найти первый минимальный и последний максимальный элементы массива. Поменять местами столбцы,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Ниже машинный перевод статьи The Thinkpad X220 Tablet is the best budget school laptop period . Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы,. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha
Etyuhibosecyu 20.11.2025
Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .
Мысли в слух
kumehtar 18.11.2025
Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru