Turbo Pascal

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

Войти

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

Другие темы раздела
Turbo Pascal Определить сколько букв латинского алфавита встречается в данной последовательности Дана последовательность символов. Определить сколько букв латинского алфавита встречается в данной последовательности. https://www.cyberforum.ru/ turbo-pascal/ thread1127222.html	Turbo Pascal В заданном предложении указать слово, в котором доля гласных (а, е, о) максимальна (С помощью процедур и функций) В заданном предложении указать слово, в котором доля гласных (а, е, о) максимальна.
Turbo Pascal Паромщик. Найти количество перемещений с берега на берег https://www.cyberforum.ru/ turbo-pascal/ thread1127201.html Паромщик перевозит грузы через реку. Известно: 1)грузоподъемность парома, превышать которую категорически запрещается, 2)количество и массы грузов на левом берегу, 3)количество и массы грузов на...	Turbo Pascal Даны действительные числа х, у, z. Вычислить min2(x + у + z/2, xyz) + 1 Даны действительные числа х, у, z. Составить программу, вычисляющую min2(x + у + z/2, xyz) + 1. https://www.cyberforum.ru/ turbo-pascal/ thread1127138.html
Напечатать все звонкие согласные буквы, которые входят хотя бы в одно четное слово Turbo Pascal Дана последовательность слов,между словами запятые,в конце строки-точка. Напечатать все звонкие согласные буквы, которые входят хотя бы в одно четное слово. Помогите,пожалуйста,с заданием. Заранее...	Turbo Pascal Распечатать количество всех двоюродных братьев и сестер человека с именем I Есть тип Имя,дальше есть тип Rodstvo=(son,daughter,mother,father,none). Есть переменная a:array of Rodstvo. Ввести эту матрицу. Распечатать количество всех двоюродных братьев и сестер человека с... https://www.cyberforum.ru/ turbo-pascal/ thread1127094.html
Turbo Pascal Найти максимум длины таких начальных отрезков заданного слова, которое является симметричным Найти максимум длины таких начальных отрезков заданного слова, которое является симметричным. Помогите.пожалуйста,с программой. Заранее спасибо. https://www.cyberforum.ru/ turbo-pascal/ thread1127092.html	В полученном векторе заменить первый положительный элемент на минимальное значение элемента массива Turbo Pascal помогите пожалуйста :wall: Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В полученном векторе заменить первый положительный элемент на минимальное значение элемента...
Turbo Pascal Бинарный поиск. Заменить первый положительный элемент на минимальное значение элемента массива https://www.cyberforum.ru/ turbo-pascal/ thread1127001.html помогите пожалуйста :wall: Заменить первый положительный элемент на минимальное значение элемента массива A(N). буду очень благодарен,спасибо за ранние.	Turbo Pascal Составьте программу вычисления количества размещений по формуле https://www.cyberforum.ru/ turbo-pascal/ thread1126999.html помогите пожалуйста :wall: Составьте программу вычисления количества размещений по формуле: R(n,m) = n!/(n-m)! Вычисление факториалов числа оформить как рекурсивную функцию
Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения четных элементов массива Turbo Pascal Заполнить массив С(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатать значения четных элементов массива. Присвоить...	Turbo Pascal Cоставьте алгоритм и программу вычисления значения функции по её аналитической формуле https://www.cyberforum.ru/ turbo-pascal/ thread1126957.html Cоставьте алгоритм и программу вычисления значения функции по её аналитической формуле и как сумму с использованием операторов for, while, repeat. Функция:П^2/6 Сумма:знак суммы, над ним 100....

VlaNik

79 / 53 / 65

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

Сообщений: 99

23.03.2014, 14:21

Дан массив целых чисел. Найти максимальный и минимальный элемент, вывести на экран - Turbo Pascal - Ответ 5938934

23.03.2014, 14:21. Показов 9764. Ответов 1

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

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

Решение

Pascal

var
 i,max,min,n:integer;
 a:array[1..10] of integer;
begin
writeln('Vvedite kol-vo elementov:');
readln(n);
randomize;
max:=1;
min:=1;
for i:=1 to n do
begin
 a[i]:=random(20);
 write(a[i],' ');
  if a[max]<a[i] then
  begin
   max:=i;
  end;
  if a[min]>a[i] then
  begin
   min:=i;
  end;
end;
writeln;
writeln('max=',a[max]);
writeln('min=',a[min]);
end.

Вернуться к обсуждению:
Дан массив целых чисел. Найти максимальный и минимальный элемент, вывести на экран Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

23.03.2014, 14:21

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

Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м. Вывести сумму элементов от минимального до максимального
Дан массив целых чисел. Найти В этом массиве минимальный элемент т и максимальный элемент м....

Дан массив целых чисел a1,...,an. Найти минимальный и максимальный элементы массива и поменять их местами.
Дан массив целых чисел a1,...,an. Найти минимальный и максимальный элементы массива и поменять их...

Дан массив целых чисел. Найти в нем минимальный элемент
Дан массив целых чисел. Найти в нем минимальный элемент!

Дан массив целых чисел. Найти максимальный элемент и его номер.
Дан массив целых чисел. Найти максимальный элемент и его номер.

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

23.03.2014, 14:21

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

Пользуясь указателем на массив целых чисел, найти минимальный и максимальный элемент массива
Пользуясь указателем на массив целых чисел, найти минимальный и максимальный элемент массива....

Дан массив А целых чисел. Найти минимальный элемент среди элементов с нечётными индексами
составить программу для решения следующей задачи: Дан массив А целых чисел. Найти минимальный...

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

Задать массив целых чисел. Вывести на экран. Выделить цветом максимальный элемент.
Играюсь с массивами. Помогите если не сложно. Задать массив из 24 целых чисел. Вывести массив на...

Наверх