Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Изделие задано с помощью дерева. Выполнить указанные действия Изделие задано с помощью дерева. В листьях указаны значения массы соответствующих деталей. Масса сборного узла определяется как сумма масс составляющих деталей. Требуется: 1)... https://www.cyberforum.ru/ pascalabc/ thread1139012.html Сортировка в файле Pascal ABC
Люди, помогите сделать сортировку параметров в файле к программе: program type_record; type weapon=record; model: string; kalibr: real; dalnost: real; oboima: integer; ...
Pascal ABC Найти наибольшее число вида 1/2^n (n>=0), меньшее а найти наибольшее число вида 1/2^n (n>=0), меньшее а (положительное число а задано). Организуя чтение исходных данных из файла данных и вывод результата в файл данных. Использовать циклы и оператор... https://www.cyberforum.ru/ pascalabc/ thread1138926.html Pascal ABC Что не хватает в коде? https://www.cyberforum.ru/ pascalabc/ thread1138917.html
Дан файл f, компоненты которого являются целыми числами. Получить в файле g все компоненты файла f: а) являющимися нечетными числами; б) делящиеся на 6 и не делящиеся на 4. Паскаль. uses crt;...
Найти все натуральные числа меньше заданного, запись которых совпадает с последними цифрами их квадрата Pascal ABC
Квадраты некоторых трехзначных чисел оканчивается тремя цифрами, которые как раз и составляют исходные числа. Написать программу поиска таких чисел.
Pascal ABC Даны три целых числа, найти среднее из них https://www.cyberforum.ru/ pascalabc/ thread1138873.html
Даны три целых числа, найти среднее из них. Средним назовём число, которое больше наименьшего из данных чисел, но меньше наибольшего.
Pascal ABC Вычисление факториалов целых чисел от 1 до 5 https://www.cyberforum.ru/ pascalabc/ thread1138843.html
Напишите программу вычисления факториалов целых чисел от 1 до 5. Напечатайте результаты в табличном формате.
Pascal ABC Перестроить программу используя рекурсивную процедуру
Есть программа, нужно что бы она работала через рекурсивную процедуру или функцию. Код: program 123; var k,n,x:integer; s,t:real; begin writeln('Введите n'); readln(n); writeln('Введите x');...
Pascal ABC Задан целочисленный массив. Если индекс максимального элемента нечётный, то массив необходимо сжать Помогите пожалуйста!!! 2) Задан целочисленный массив. Если индекс максимального элемента нечётный, то массив необходимо сжать, удалив из него все чётные элементы. Оставшиеся позиции заменить... https://www.cyberforum.ru/ pascalabc/ thread1138600.html Pascal ABC Множини,записи,рядки,їх використання https://www.cyberforum.ru/ pascalabc/ thread1138551.html
Допоможіть будь ласка!!:help: 1. Ввести множину, запис або рядок за допомогою клавіатури. 2. Вивести на екран монітора вихідну множину, запис або рядок. 3. Виконати необхідні перетворення над...
Pascal ABC Ввести с клавиатуры некоторый массив. Затем осуществить проверку элементов массива на чётность
Помогите пожалуйста!!! 1) Необходимо ввести с клавиатуры некоторый массив. Затем осуществить проверку элементов массива на чётность. Необходимо чётные элементы увеличить вдвое, а нечётные увеличить...
Pascal ABC Преобразовать файл таким образом, чтобы каждый оператор располагался на отдельной строке Для программы, записанной в файле в виде непрерывного текста, преобразовать файл таким образом, чтобы каждый оператор располагался на отдельной строке. https://www.cyberforum.ru/ pascalabc/ thread1138492.html
18 / 18 / 39
Регистрация: 22.03.2014
Сообщений: 79
04.04.2014, 18:25 0

Написать функцию для определения максимального элемента одномерного массива - Pascal ABC - Ответ 5999677

04.04.2014, 18:25. Показов 2065. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Mark1615 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=5;
type arr=array [1..n] of integer;
var i:integer;
a:arr;
function maximum(mas:arr):integer;
var max:integer;
begin
max:=mas[1];
for i:=1 to n do
if (mas[i]>max) then max:=mas[i];
maximum:=max;
end;
 
begin
for i:=1 to n do
a[i]:=Random(50);
for i:=1 to n do
Write(a[i]:4);
Writeln;
Writeln('maximum=',maximum(a));
end.


Вернуться к обсуждению:
Написать функцию для определения максимального элемента одномерного массива Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.04.2014, 18:25
Готовые ответы и решения:

Составить процедуру для определения максимального по модулю элемента одномерного массива
Составить процедуру для определения максимального по модулю элемента одномерного массива. Если...

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

Написать функцию для определения количества элементов одномерного массива, кратных k
Написать функцию для определения количества элементов одномерного массива, кратных k.

Написать функцию для определения суммы положительных элементов одномерного массива
Написать функцию для определения суммы положительных элементов одномерного массива.

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.04.2014, 18:25
Помогаю со студенческими работами здесь

Написать функцию для определения минимального элемента двумерного массива
Написать функцию для определения минимального элемента двумерного массива.

Написать рекурсивную функцию для вычисления максимального элемента массива из n элементов
Не запускается программа, не понимаю почему. Задача и решение ниже. Написать рекурсивную...

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

Описать функцию MaxN(X.N), находящую номер максимального элемента одномерного массива X размер N.
Описать функцию MaxN(X.N), находящую номер максимального элемента одномерного массива X размер N....

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru