Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Написать программу и составить к ней блок-схему https://www.cyberforum.ru/ pascal/ thread1138083.html Доброго времени суток.Прошу помочь с решением задачи :) Написать программу с описанием переменных и составить к ней блок-схему, которая бы определяла область, в которой находится точка с координатами Х и У. Заранее спасибо	Pascal Из java в pascal Доброе время суток! Ребят помоги перевести из java на pascal! Очень нужно( package relax; import java.io.; import java.util.; public class Main { public static void main(String args) throws IOException {
Pascal Вычислить сумму https://www.cyberforum.ru/ pascal/ thread1138011.html Вычисление степени оформите функцией. Помогите пожалуйста! \sum_{k=1}^{n}\frac{\left( sin\ x\right)^{k+1}+2^{k+3}}{k\left(k+1 \right)\left(k+2 \right)}	Pascal Изобразить во все окно шахматную доску 10x10 Привет всем, помогите пожалуйста решить задачу, заранее спасибо. "Изобразить во все окно шахматную доску 10x10" в Паскале. https://www.cyberforum.ru/ pascal/ thread1137986.html
Создать связанный список из записей, содержащих сведения об учащихся (фамилия, год поступления, № группы, № курса) Pascal Создать связанный список из записей, содержащих сведения об учащихся (фамилия, год поступления, № группы, № курса), реализовать операции со связанным списком: запись первым в список, удаление первого объекта из списка, просмотр всего списка, удаление объекта, следующего за указанным.	Pascal Граф. Поиск. компонент связности Дан неориентированный невзвешенный граф. Необходимо посчитать количество его компонент связности и вывести их. (ограничение по времени, сек 3 Ограничение по памяти, мегабайт 256) Во входном файле записано два числа N и M (0 < N ≤ 100,000, 0 ≤ M ≤ 100,000). В следующих M строках записаны по два числа i и j (1 ≤ i,j ≤ N), которые означают, что вершины i и j соединены... https://www.cyberforum.ru/ pascal/ thread1137770.html
Pascal Написать процедуру сортировки одномерного массива. С её помощью упорядочить заданные строки и столбцы двумерных массивов https://www.cyberforum.ru/ pascal/ thread1137491.html Составить процедуру общего вида упорядочения по возрастанию элементов одномерного массива. Используя процедуру, упорядочить элементы второго столбца произвольно заданного массива B(n,m) и четвертой строки матрицы A=+*X где A, X, Y - квадратные матрицы размером n x п. Элементы матриц X и Y задать произвольно.	Написать программу, которая выводит на экран самое большое, самое маленькое и среднее арифметическое введенных чисел Pascal Надо написать программу, которая запрашивает 10 целых чисел и потом выводит на экран самое большое, самое маленькое и среднее арифметическое. В программе желательно, по возможности, использовать оператор for. Поможет кто?
Pascal Требуется вывести квадратную матрицу, где первый квадрат-единицы, квадрат внутри него-нули, потом снова единицы и т.д. Требуется вывести квадратную матрицу, где первый квадрат-единицы, квадрат внутри него-нули, потом снова единицы и так далее. Прошу помощи. Добавлено через 50 минут помогите пожалуйста https://www.cyberforum.ru/ pascal/ thread1137378.html	Pascal Нарисовать замкнутую окрашеную фигуру и сделать подпись рисунка https://www.cyberforum.ru/ pascal/ thread1137357.html Нарисовать замкнутую окрашеную фигуру и сделать подпись рисунка(Slark).
Pascal Программа с выбором из нескольких тестов Нужно создать программу, где перед нами предстает выбор тестов. например: тест по русс.яз тест по математике тест по литературе тест по истории тест по обществознанию можете просто пару вопросов там написать в каждом. я сама все напишу. мне нужно узнать как сделать этот выбор между тестами. ЗАРАНЕЕ ВСЕХ БЛАГОДАРЮ.	Pascal Нужно решить СЛАУ методом зейделя с точностью до 0.001. Ошибка нужно решить СЛАУ методом зейделя с точностью до 0.001 код написан по блок схеме но корни уравнений неправильные uses crt; var e,s0:real; a:array of real; b,x,x0:array of real; i,j,n,s,p,f:integer; https://www.cyberforum.ru/ pascal/ thread1137162.html

Дикутенз

92 / 92 / 99

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

Сообщений: 326

03.04.2014, 20:30

Из одноммерного массива удалить четные элементы, стоящие после максимального, использовать подпрограммы - Pascal - Ответ 5995782

03.04.2014, 20:30. Показов 1937. Ответов 1

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

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

Решение

Pascal

Uses crt;
const n=10;
Var A:array[1..n] of integer;
    i,j,k,kol,max:integer;
begin clrscr;
  for i:=1 to n do
  begin
    A[i]:=Random(100);
    write(A[i],' ');
  end;
  writeln;
  max:=A[1];
  k:=1;
  for i:=2 to n do if A[i]>max then
    begin
      max:=A[i];
      k:=i;
    end;
  kol:=n;
  i:=k+1;
  repeat
    if (A[i] mod 2)=0 then
     begin
       dec(kol);
       for j:=i to kol do A[j]:=A[j+1];
     end else inc(i);
   until i>kol;
   
  for i:=1 to kol do Write(A[i],' ');
  readln;
end.

Вернуться к обсуждению:
Из одноммерного массива удалить четные элементы, стоящие после максимального, использовать подпрограммы Pascal

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

03.04.2014, 20:30

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

Из массива удалить четные элементы, стоящие после максимального.
на паскале Из массива удалить четные элементы, стоящие после максимального. Пример: из массива...

Удалить чётные элементы, стоящие после максимального (с параметрами и без параметров)
Нужно также использовать процедуры и функции в обоих случаях((( Пример: из массива А; 2 7 4 6 5...

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

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

	03.04.2014, 20:30

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

03.04.2014, 20:30

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

Удалить из массива все чётные элементы, стоящие на нечётных местах
Дан массив четных чисел. Удалить из него: а) все чётные элементы, стоящие на нечётных местах; б)...

Удалить из массива все четные элементы, стоящие на нечетных местах.
Дан массив В, состоящий из b элементов. Элементы массива ввести с использованием компонента Edit....

Массив: Удалить из массива четные элементы,стоящие на нечетных местах.
1)четные,стоящие на нечетных местах. 2) начиная с к1 по к2(к1 и к2 вводяться с клавиатуры)

Удалить из массива все четные элементы стоящие на нечетных местах.
Дан массив целых чисел. Удалить из него все четные элементы стоящие на нечетных местах. ...

Новые блоги и статьи
Что такое HCL Notes и как с ним работать InfoMaster 10.01.2025 HCL Notes (ранее известный как IBM Notes и Lotus Notes) представляет собой комплексную платформу для совместной работы и обмена информацией в корпоративной среде. Это многофункциональное решение,. . .	Как работать с Git из Windows и Visual Studio InfoMaster 10.01.2025 Работа с Git в Windows Работа с Git в операционной системе Windows может быть осуществлена с помощью различных инструментов, каждый из которых обладает своими уникальными возможностями и. . .	Аналог оператора switch case в Python InfoMaster 10.01.2025 Оператор switch case используется в программировании для выбора одного из нескольких вариантов исполнения кода. Однако в языке Python этот оператор отсутствует. Понимание аналогов switch case в. . .	Отличия абстрактного класса от интерфейса InfoMaster 10.01.2025 В современной разработке программного обеспечения существуют два основных механизма реализации абстракции: абстрактные классы и интерфейсы. Эти инструменты, хотя и схожи в своей основной цели -. . .	Как работать в Git InfoMaster 10.01.2025 Git — это одна из наиболее популярных систем контроля версий, которая активно используется разработчиками по всему миру. Она позволяет эффективно управлять изменениями в коде, координировать работу. . .	Реализация передвижения персонажа в Unity3d на C# InfoMaster 10.01.2025 Реализация передвижения персонажа в Unity3D начинается с правильной настройки проекта. Этот этап критически важен для создания отзывчивого и плавного управления. Рассмотрим основные шаги для создания. . .
Docker: руководство для начинающих InfoMaster 10.01.2025 В современном мире разработки программного обеспечения контейнеризация стала неотъемлемой частью процесса создания и развертывания приложений. Docker, как ведущая платформа контейнеризации, произвела. . .	Книги и учебные ресурсы по C# InfoMaster 08.01.2025 Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .	Что такое NullReferenceException и как исправить? InfoMaster 08.01.2025 NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .	Что такое Null Pointer Exception (NPE) и как это исправить? InfoMaster 08.01.2025 Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .	Русский язык в консоли C++ InfoMaster 08.01.2025 При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .	Telegram бот на C# InfoMaster 08.01.2025 Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .

Наверх