Динамический массив: найти произведение наибольшего и наименьшего элемента - Pascal

  1. Помогите. Составит программу, в которой вводится размер массива (одномерный). Выделить память, найти произведение наибольшего и наименьшего элемента. Освободить память. Начало программы вроде правильно.

textual

Код:

var
  a: array of Integer;
  i, n, mn, mx: Integer;
begin
  Randomize;
  Write('Размер массива: '); Read(n);
  SetLength(a,n); mn:=MaxInt; mx:=-MaxInt-1;
  for i:=0 to n-1 do begin
    a[i]:=1+Random(7); Write(' ',a[i]);
    if mn>a[i] then mn:=a[i];
    if mx<a[i] then mx:=a[i];
  end; WriteLn;
  SetLength(a,0); { необязательно }
  WriteLn('Произведение min*max: ',mn*mx);
end.

Похожие ответы
  1. После введения с клавиатуры произвольного одномерного массива целых чисел (в границах знакового целого типа) вывести на экран их сумму. Введение каждого числа заканчивается нажиманием , введение заканчивается введением числа 0

  1. мне нужно сформыровать файл о студенте (имя, дата,стать,курс,адреса,телефон,оценка за сесию и стипендия ) . А потом получить информацию о всех студентах которие имеют телефон. сделал наброски и зашел в тупик

  1. В одномерном числовом массиве V все максимальные элементы замениь элементом, значение которого равно K.

  1. Помогите пожалуйста розобраться с задачей. "В матрицэ В(7,3) определить наибольшые элементы из отрицательных элементов строк что имеют четные индексы. Вывести найденные наибольшые элементы в виде массива."

  1. В двоичной последовательности (состоящей из нулей и единиц) найти среднюю длину связной группы нулей.Добавлено через 2 часа 49 минут Сам я знаю только как найти среднее арифметическое а как дальше делать без понятия

  1. пусть C - одномерный массив вещественных чисел длинны N.Вести его через датчик случайных чисел найти : 1)Сумму квадратов элементов с нечётными номерами 2)среднее квадратное число элементов с чётными номерами

  1. Написать программу решения следующей задачи. Даны два натуральных числа. Найти их наибольший общий делитель.

  1. 1.Задана квадратная матрица. Переставить строку с макси¬мальным элементом на главной диагонали со строкой с заданным номером. 2.Заданы матрица (размером N*N) и число К (0<=K

  1. Всем привет. Помогите плз решить данную задачу. Задача: Рассматривается непустая строка, состоящая из не более, чем 80 символов. Каждый символ строки может быть малой английской буквой, цифрой или одним из символов +, -, *. Группой букв будет называться такая совокупность последовательно расположенных букв, которой непосредственно не предшествует и за которой непосредственно не следует буква. Аналогично определяется группа знаков и цифр. Требуется написать программу, которая находит и печатает все такие группы букв, которые начинаются и заканчиваются одной и той же буквой. Группа букв, состоящая из одной буквы, принадлежит множеству искомых групп букв. Если в строке нет ни одной группы букв, которая начинается и кончается одной и той же буквой, то напечатать сообщение "В строке нет ни одной искомой группы букв". Если в строке нет ни одной группы букв, то напечатать сообщение "В строке нет ни одной группы букв". Исходная строка вводится с клавиатуры. Преподаватель сказал что нужно задать постоянную в которой перечислить весь англ.алфавит и потом только находить нужные группы букв. В общем я не понял, как в итоге решить эту задачу. Прошу помощи *help* Небольшое вознаграждение.


Нашли ошибку?
Развитие проекта
Яндекс.Метрика