Перестановка

@warexs · Регистрация: 05.11.2010

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

Дан числовой одномерный массив A[N] максимальному элементу присваиваем значение первого элемента.
прошу помощи в решении. желательно на ПаскальABC.
и если не сложно с объяснениями (но не для первоклассника)
знаю что задача не сложная ,но с массивами я чёт совсем плох...
с максимальным разобрался а для его замены с 1ым что нужно сделать?)

@Puporev · 05.11.2010, 19:16

Сообщение от warexs

максимальному элементу присваиваем значение первого элемента.

И все?

Добавлено через 43 секунды
А что за перестановка в названии?

@warexs · 05.11.2010, 19:22 **[ТС]**

Сообщение от Puporev

И все?

Добавлено через 43 секунды
А что за перестановка в названии?

я редактировал текст темы ,а название темы я не трогал...видимо кто-то поменял у кого есть на это права.

меня интересует как поменять первый элемент массива с максимальным?) и вымести эту строчку на экран

@Puporev · 05.11.2010, 19:26

Сообщение от warexs

название темы я не трогал.

Это я твою мазню исправил, но слово перестановка я не убирал.

Добавлено через 1 минуту

Сообщение от warexs

максимальному элементу присваиваем значение первого элемента.

Вот ты это пишешь и чего-то ждешь, а это только часть условия. Если ты даже вопрос правильно задать не в состоянии по причине слабого ума, то нафига тебе еще что-то писать.

@warexs · 05.11.2010, 20:13 **[ТС]**

Добавлено через 45 минут

Сообщение от Puporev

Это я твою мазню исправил, но слово перестановка я не убирал.

Добавлено через 1 минуту

Вот ты это пишешь и чего-то ждешь, а это только часть условия. Если ты даже вопрос правильно задать не в состоянии по причине слабого ума, то нафига тебе еще что-то писать.

покажи как присвоить максимальному первое значение массива....
я понимаю что нужно делать через переменную но не уверен как правильно

Дан числовой одномерный массив A[N] максимальному элементу присваиваем значение первого элемента.
это и есть всё условие задачи..не больше и не меньше...

@Puporev · 05.11.2010, 20:23

И зачем было писать про перестановку.
1. Найти индекс максимального.
imax:=1;
for i:=1 to n do
if a[i]>a[imx] then imax:=i;
2. a[imax]:=a[1];
Оформление здесь.
Описание, объявление и заполнение массивов (матриц)

@warexs · 05.11.2010, 20:49 **[ТС]**

Сообщение от Puporev

И зачем было писать про перестановку.
1. Найти индекс максимального.
imax:=1;
for i:=1 to n do
if a[i]>a[imx] then imax:=i;
2. a[imax]:=a[1];
Оформление здесь.
Описание, объявление и заполнение массивов (матриц)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program f;
var a:array[1..100]of integer;
N,i,max:integer;
begin
 write('massiv ');
 readln(N);
 write('vvod massiva- ');
 for i:=1 to N do read(a[i]);
 readln;
 max:=2;
 for i:=1 to N do if a[i] > a[max] then max:=i;
 max:=1;
 begin
 for i:=1 to n do
 if a[i]>a[max] then max:=i;
 a[max]:=a[1];
 end;
 writeln('a[max]= [',max,']=',a[max]);
 readln;
 end.

но как то я очень напортачил.....

@Puporev · 05.11.2010, 20:51

Сообщение от warexs

но как то я очень напортачил.....

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

@warexs · 05.11.2010, 20:57 **[ТС]**

Сообщение от Puporev

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

ок.
мне нужна программа сделанная по такому условию: Дан числовой одномерный массив A[N] максимальному элементу присваиваем значение первого элемента.
с выводом в строчку всех элементов массива.

@pryda · 05.11.2010, 21:01

warexs, эта задача для 2 класса, причем церковно-приходской школы. а ты даже условие с трудом выговариваешь.

@warexs · 05.11.2010, 21:06 **[ТС]**

pryda, 2ой класс читает с трудом ,а ты написать на клавиатуре больше 50символов........
даже церковь не настолько отстала что бы не уметь пользоваться компьютером.
возможно мои познания не велики и это радует ибо тогда есть к чему стремиться)
И лучше помоги если считаешь ,что ты настолько крут)

@pryda · 05.11.2010, 21:16

Сообщение от warexs

pryda, 2ой класс читает с трудом ,а ты написать на клавиатуре больше 50символов........

а причем здесь я?

Сообщение от warexs

И лучше помоги если считаешь ,что ты настолько крут)

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

@warexs · 05.11.2010, 21:17 **[ТС]**

Сообщение от pryda

а причем здесь я?

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

понятно.
ты лишь тролить можешь а помочь тем кто завис на массиве не всилах(

@pryda · 05.11.2010, 21:23

Сообщение от warexs

ты лишь тролить можешь а помочь тем кто завис на массиве не всилах(

так подойди к учителю в школе или преподу в универе, или к священнику, где ты учишься я не знаю и скажи что фатально туп и не смог усвоить, что такое массив и приемы работы с ним. или тебе по приколу тут пыжиться и просить чтобы тебе услужили? ты сдашь задание, получишь 5, но в итоге все равно останешься бараном

@SuPeR XaKer · 05.11.2010, 21:33

warexs

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
29
30
31
uses
 crt;
var
 i,n,max,ind:integer;
 a:array[1..50] of integer;
begin
clrscr;
write('Ââåäèòå ðàçìåðíîñòü: ');
readln(n);
randomize;
max:=a[1];
ind:=1;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if (a[i]>max) then
begin
max:=a[i];
ind:=i;
end;
end;
writeln;
writeln('Min[',ind,']:=',max);
a[ind]:=a[1];
for i:=1 to n do
begin
write(a[i]:3);
end;
readkey
end.

Не по теме:

лучше промолчу

@warexs · 05.11.2010, 21:59 **[ТС]**

Сообщение от SuPeR XaKer

warexs

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
29
30
31
uses
 crt;
var
 i,n,max,ind:integer;
 a:array[1..50] of integer;
begin
clrscr;
write('Ââåäèòå ðàçìåðíîñòü: ');
readln(n);
randomize;
max:=a[1];
ind:=1;
for i:=1 to n do
begin
a[i]:=random(10)-3;
write(a[i]:3);
if (a[i]>max) then
begin
max:=a[i];
ind:=i;
end;
end;
writeln;
writeln('Min[',ind,']:=',max);
a[ind]:=a[1];
for i:=1 to n do
begin
write(a[i]:3);
end;
readkey
end.

Не по теме:

лучше промолчу

спасибо,но для чего тебе рандомайз?

Добавлено через 1 минуту

Сообщение от pryda

так подойди к учителю в школе или преподу в универе, или к священнику, где ты учишься я не знаю и скажи что фатально туп и не смог усвоить, что такое массив и приемы работы с ним. или тебе по приколу тут пыжиться и просить чтобы тебе услужили? ты сдашь задание, получишь 5, но в итоге все равно останешься бараном

я и прошу с пояснениями дабы разобраться...а не слушать тролей не знающий и любящих бла бла бла

@pryda · 05.11.2010, 22:27

Сообщение от warexs

а не слушать тролей не знающий и любящих бла бла бла

ясно. дурака учить - только портить.

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@warexs 1 / 1 / 0 Регистрация: 05.11.2010 Сообщений: 39

	Перестановка 05.11.2010, 19:08. Показов 1325. Ответов 16 Метки нет (Все метки) Дан числовой одномерный массив A[N] максимальному элементу присваиваем значение первого элемента. прошу помощи в решении. желательно на ПаскальABC. и если не сложно с объяснениями (но не для первоклассника) знаю что задача не сложная ,но с массивами я чёт совсем плох... с максимальным разобрался а для его замены с 1ым что нужно сделать?) 0

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	05.11.2010, 20:23
	И зачем было писать про перестановку. 1. Найти индекс максимального. imax:=1; for i:=1 to n do if a[i]>a[imx] then imax:=i; 2. a[imax]:=a[1]; Оформление здесь. Описание, объявление и заполнение массивов (матриц) 0

@pryda Неадекват и грубиян 310 / 297 / 301 Регистрация: 22.02.2010 Сообщений: 647
	05.11.2010, 21:01
	warexs, эта задача для 2 класса, причем церковно-приходской школы. а ты даже условие с трудом выговариваешь. 0

@warexs 1 / 1 / 0 Регистрация: 05.11.2010 Сообщений: 39
	05.11.2010, 21:06 [ТС]
	pryda, 2ой класс читает с трудом ,а ты написать на клавиатуре больше 50символов........ даже церковь не настолько отстала что бы не уметь пользоваться компьютером. возможно мои познания не велики и это радует ибо тогда есть к чему стремиться) И лучше помоги если считаешь ,что ты настолько крут) 0