Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal перестановка слов в предложении https://www.cyberforum.ru/ pascal/ thread401716.html
Помогите с задачей! надо вывести все возможные перестановки слов в предложении исключая повторения. pascal Перестановки не должны повторяться, одинаковые перестановки не выводить. например:...
Pascal Задача на записи.Вычистить средний балл группы и распечатать список студентов, фамилии которых начинаются на букву А https://www.cyberforum.ru/ pascal/ thread401819.html
Ввести сведения о восьми студентах :фамилия , год рождения , рейтинг по предметам :алгоритмизация , история , дискретный анализ . Вычистить средний балл группы и распечатать список студентов ,... TYPE student=record fam:string; godroj:1950..2011; alg,disk,ist:2..5; end; var s:array of student; i,n:integer; sr:real; begin writeln('Введите данные о абитуриентах');
Pascal Определение максимальной и минимальной цифры в числе https://www.cyberforum.ru/ pascal/ thread402201.html
Расскажите поподробнее, как определить в введённом числе (пятизначном, двадцатизначном, любом) минимальную и максимальную цифру? Там вроде как надо использовать mod, div, а я так и не понял каким... uses crt; var a,Max,x:integer; begin clrscr; Write('Ââåäèòå ÷èñëî: ');readln(a); Max:=a mod 10; while a>0 do begin
Задачи на процедуры!! Pascal
1) В матрице x(3;4) T(7;8) минимальные элемент этого массива заменить суммой положительных элементов массива. 2) В действительной матрице B(5;6) T(7;8) подсчитать количество единиц, номер строки... Актуально?
Pascal Задачи с массивами-матрицами
1)Дан массив М(n,n). найти сумму и количество положительных элементов в каждой строке и лежаших выше главной диагонали. 2)дан массив М(n,k). определить на какой строке находится минимальный элемент...
Pascal модуль graph, есть программа, но система не поддерживает есть программа но система выдает ошибку что не поддерживает изображения такого типа, если кто может запустите программу на своем компе и сделайте скрин. program lab11; uses graph; procedure... но система не поддерживает Устанавливайте DosBox или качайте ShoolPack, или FreePascal. https://www.cyberforum.ru/ pascal/ thread402195.html
Pascal Удаление/Вставка
помогите пожалуйста 1) Удалить последний положительный элемент в одномерном массиве размерностью N. 2) Вставить перед элементом из задачи 1 элемент, равный нулю https://www.cyberforum.ru/pascal/thread400129.html?uri=/pascal/thread400129.html только там первый, последний точно также, только начать с конца.
Pascal Определить, пересекаются ли прямая и круг. https://www.cyberforum.ru/ pascal/ thread401745.html
Доброго времени суток! на плоскости задана прямая (известны координаты двух точек ,которые принадлежат ей) и круг (известны координаты центра и радиус) Определить, пересекаются ли прямая и круг. BakhtiyarZ, человек честно пытался перевести своими силами на русский... явно он с Украины... Добавлено через 2 минуты homs1993, а для Вас - (если уж плохо так с Русским) - translate.google.ru
Pascal Графика Паскаль.Почему на экране ни чего не происходит
вот код программы по учебнику должен выводить треугольник но ни чего не происходит?! uses graph; var drivervar,modevar,errorcode:integer; xpos,ypos,x,y,i,delay,textcolor:integer; ... С какого угару это будет выводить треугольник? uses graph; var drivervar,modevar,errorcode:integer; xpos,ypos,x,y,i,delay,textcolor:integer; procedure init; begin driverVar:=vga;...
Pascal Графика https://www.cyberforum.ru/ pascal/ thread401772.html
В треугольной призме построить сечение, проходящее через одну из сторон верхнего основания и противолежащую вершину нижнего uses graph; var p1,p2:arrayof Pointtype; gd,gm:integer; xc,yc,a,h,h1:integer; begin InitGraph(gd,gm,''); xc:=getmaxX div 2; yc:=getmaxY-100; a:=100; h1:=50;
Pascal Двумерный массив Дан двумерный массив Задание:вставить второй столбец после строки, в которой все элементы положительны. Если такого столбца нет, то вывести сообщение. Люди помогите!!! https://www.cyberforum.ru/ pascal/ thread402107.html Pascal Для заданной последовательности символов определить длинну максимальной серии символов https://www.cyberforum.ru/ pascal/ thread401816.html
Для заданной последовательности символов определить длинну максимальной серии символов. ПОМОГИТЕ ПОЖАЛУЙСТА!!!ЗАРАНЕЕ ОГРОМНОЕ СПАСИБО!!!)))
Почетный модератор
 Аватар для КонецСвета
7966 / 3937 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
08.12.2011, 22:34 0

В одномерном массиве (в массиве n элементов) удалить все элементы стоящие между минимальным положительным и максимальным отрицательным элементом - Pascal - Ответ 2263029

08.12.2011, 22:34. Показов 3258. Ответов 3
Метки (Все метки)

Ответ

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
32
33
34
35
36
37
38
39
40
uses crt;
var a: array [1..100] of integer;
    i,max,imax,min,imin,dz,nz,n: integer;
begin
write('n=');
readln(n);
max:=-51; min:=51;
for i:=1 to n do
    begin
    a[i]:=random(101)-50;
    write(a[i]:4);
    if (a[i]>0) and (a[i]<min) then
       begin
       min:=a[i];
       imin:=i;
       end;
    if (a[i]<0) and (a[i]>max) then
       begin
       max:=a[i];
       imax:=i;
       end;
    end;
if imin<imax then
   begin
   nz:=imin+1;
   dz:=imax-imin-1;
   end else
   begin
   nz:=imax+1;
   dz:=imin-imax-1;
   end;
writeln;
writeln('Мин. из пол. ',min,' под номером ',imin);
writeln('Макс. из отр. ',max,' под номером ',imax);
for i:=nz to n do
    a[i]:=a[i+dz];
n:=n-dz;
for i:=1 to n do
    write(a[i]:4);
end.


Вернуться к обсуждению:
В одномерном массиве (в массиве n элементов) удалить все элементы стоящие между минимальным положительным и максимальным отрицательным элементом Pascal
1
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.12.2011, 22:34
Готовые ответы и решения:

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

Удалить все элементы массива, стоящие между минимальным положительным и максимальным отрицательным элементами
Помогите плиззз=((( Задание:В массиве A=(a1, а2, ..., аn) удалить все элементы, стоящие между минимальным положительным и максимальным...

В двухмерном массиве удалить все элементы, стоящие между минимальным положительным и максимальным отрицательным
В двухмерном массиве 10x10 удалить все элементы, стоящие между минимальным положительным и максимальным отрицательным элементами.

3
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
08.12.2011, 22:34
Помогаю со студенческими работами здесь

Удалить все элементы, стоящие между минимальным положительным и максимальным отрицательным элементами
В массиве A=(a1, а2, ..., аn) удалить все элементы, стоящие между минимальным положительным и максимальным отрицательным элементами.

Удалить все элементы списка, стоящие между минимальным положительным и максимальным отрицательным элементами
Ребят, помогите плиз. Python Элементы списка нужно вводить с помощью random. В списке А=(а1,а2,...,аn) удалить все элементы, стоящие...

В массиве все положительные элементы, стоящие перед минимальным положительным элементом, переслать в хвост массива
В массиве A=( a1, а2, ..., аn) все положительные элементы, стоящие перед минимальным положительным элементом, переслать в «хвост» массива. ...

В массиве все положительные элементы, стоящие перед минимальным положительным элементом, переслать в хвост массива
В массиве A=(a1, а2, ..., аn) все положительные элементы, стоящие перед минимальным положительным элементом, переслать в «хвост» массива....

В заданном массиве М (14) заменить все отрицательные элементы, стоящие на четных местах, его максимальным элементом, а на нечетных - его минимальным э
В заданном массиве М (14) заменить все отрицательные элементы, стоящие на четных местах, его максимальным элементом, а на нечетных - его...

0
Новые блоги и статьи
Система безопасности в Laravel: возможности и примеры
Wired 18.02.2025
Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel
Wired 18.02.2025
Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .
Laravel или React - что лучше?
Wired 18.02.2025
В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .
Laravel 11: новые возможности, гайд по обновлению
Wired 18.02.2025
Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .
Миграции в Laravel
Wired 18.02.2025
Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .
Аутентификация в Laravel
Wired 18.02.2025
В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .
Laravel или Symfony: что лучше для старта?
Wired 18.02.2025
В веб-разработке выбор правильного фреймворка может стать определяющим фактором успеха проекта. Особенно это актуально для PHP - одного из самых распространенных языков программирования, где Laravel. . .
Что нового в Laravel 12
Wired 18.02.2025
С момента своего появления в 2011 году Laravel постоянно развивается, внедряя инновационные решения и совершенствуя существующие возможности. В начале 2025 года ожидается выход Laravel 12 - новой. . .
Роутер в Laravel: как работать с маршрутами
Wired 18.02.2025
Маршрутизация - один из основополагающих элементов любого веб-приложения на Laravel, определяющий как приложение отвечает на HTTP-запросы к различным URL-адресам. По сути, роутинг - это механизм. . .
Интеграция шаблона Bootstrap в Laravel PHP
Wired 18.02.2025
Разработка веб-приложений в современном мире требует не только надежного бэкенда, но и привлекательного, отзывчивого интерфейса. Laravel, как один из самых популярных PHP-фреймворков, отлично. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru