Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Множества https://www.cyberforum.ru/ pascal/ thread1623179.html Придумать список некоторых объектов, например, названия товаров в магазинах; виды полезных ископаемых, которые добывают в различных странах; фамилии студентов, которые могут принимать участие в работе определённых кружков и т.п. Построить пять множеств (язык слов англ-), которые складываются из различных комбинаций элементов этого списка. Определить, какие объекты входят во второе, третье и пятое...	Записи: ввести информацию о студентах и напечатать фамилии и инициалы всех студенток второго курса Pascal Имеется следующая информация о каждом из n студентов: <фамилия>, <имя>, <отчество>, <пол>, <возраст>, <курс>. Написать программу, которая вводит эту информацию и печатает фамилию и инициалы всех студенток второго курса.
Pascal Строки: ввести фамилию, имя и отчество, вывести имя в столбик https://www.cyberforum.ru/ pascal/ thread1623175.html Ввести фамилию, имя и отчество как одно данное строкового типа. Вывести имя в столбик.	Pascal Векторы и матрицы Ввести с клавиатуры значения N, которые больше 1 и меньше MAXN, где MAXN = 20 – константа, описанная в разделе const. Подскажите, пожалуйста. https://www.cyberforum.ru/ pascal/ thread1622908.html
Разработка многоугольных программ с выделением процедур Pascal Задача. Разработать программу выделив процедуру. Задание номер 8, буду очень признателен тем кто сможет помочь.	Pascal Дана матрица A символов размером 4x3 https://www.cyberforum.ru/ pascal/ thread1622637.html Дана матрица A символов размером 4x3. Организовать и вывести на экран матрицу состоящую из целых чисел, полученных преобразованием чисел матрицы А. Помогите плииз!
Pascal Временная сложность алгоритмов https://www.cyberforum.ru/ pascal/ thread1622587.html Как мне сделать временную сложность алгоритма: program rgr; type TPos = record Pos1, Len : Integer; end;	Pascal Дана последовательность a1.an. Найти произведение совершенных элементов Дана последовательность a1...an. Найти произведение совершенных элементов.
Pascal В файле F заменить все нулевые компоненты значением суммы первой и последней компонент файла https://www.cyberforum.ru/ pascal/ thread1622489.html 3)В файле F заменить все нулевые компоненты значением суммы первой и последней компонент файла; все отрицательные компоненты уменьшить на значение суммы, а также найти среднее арифметическое положительных компонент. Результаты отпечатать.	Pascal Найти максимальные элементы каждой строки исходной матрицы 2)Найти максимальные элементы каждой строки исходной матрицы А(MxМ), М<=20 и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных. Преобразованную матрицу выдать на печать в общепринятом виде. https://www.cyberforum.ru/ pascal/ thread1622488.html
Напечатать номера элементов, которые равны на единицу больше наименьшего элемента массива Pascal 1)Задан одномерный массив C(N) (N<=70). Напечатать номера элементов, которые равны на единицу больше наименьшего элемента массива, и определить колличество таких элементов.	Pascal Найти одинаковые элементы и их номера в двумерном массиве Здравия желаю! Подскажи по заданию "В матрице А размером NxM найти все одинаковые элементы и вывести на печать их порядковые номера в виде: Значение 1 = ... Номера лементов = номер1, номер2 Значение 2 = ... Номера лементов = номер1, номер2 Камнем утыкания стало сравнение одного элемента со всеми другими, запутался в конец, подправьте и объясните кому не трудно. https://www.cyberforum.ru/ pascal/ thread1622412.html

schoolteacher

39 / 39 / 49

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

Сообщений: 127

23.12.2015, 21:27

Нахождение максимального отрицательного элемента массива - Pascal - Ответ 8535940

23.12.2015, 21:27. Показов 10729. Ответов 10

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

Ответ

Может так?

Pascal

program z1623223;
var a:array[-10..10] of integer;
  i,minplus,maxminus:integer;
begin
randomize;
  Writeln ('Массив:');
  for i:=-10 to 10 do begin
  a[i]:=random(30);
  Write (a[i],' ');
  end;
  writeln;
  minplus:=a[1];
  for i:=1 to 10 do begin
  if a[i]<minplus then minplus:=a[i];
  end;
  writeln('minpluse=',minplus);
  maxminus:=a[-1];
  for i:=-1 downto -10 do begin
  if a[i]>maxminus then maxminus:=a[i];
  end;
  writeln('maxminus=',maxminus);
end.

Добавлено через 7 минут
Если правильно понял.

Вернуться к обсуждению:
Нахождение максимального отрицательного элемента массива Pascal

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.12.2015, 21:27

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

Нахождение максимального элемента массива
создать программу с прoцедyрой для ввoдa мaccивa из N вещеcтвенныx чиcел. Ввеcти двa мaccивa: ...

Нахождение номера максимального элемента массива
Помогите пожалуйста, до завтра надо сдать 3 индивидуальные работы, 1 я сделал, но вот эти две...

Заполнение массива и нахождение максимального и минимального элемента
Задача:заполнить массив случайными числами от -100 до 100. Найти максимальный и минимальный элемент...

Нахождение максимального элемента в массиве.
Решите задачку пожалуйста. Найдите максимальный элемент в массиве.

	23.12.2015, 21:27

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.12.2015, 21:27

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

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

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

Найти среднее арифметическое до минимального элемента и после максимального элемента массива
Дан массив F(11). найти среднее арифметическое до минимального элемента и после максимального...

Вставить два элемента: первый — после максимального элемента, второй — перед максимальным элементом массива
вставить два элемента: первый- после максимального элемента, второй- перед максимальным элементом...

Наверх