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

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


textual

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

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.

СДЕЛАЙТЕ РЕПОСТ

14   голосов, оценка 4.143 из 5



Похожие ответы
  1. 2. Сформировать двумерный динамический массив. Добавить в него строку с заданным номером;

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

  1. Привет! Помогите, пожалуйста, решить задачу: Дана действительная матрица X размера 6Х9. Найти матрицу Y, получающуюся из данной перестановкой столбцов – первого с последним, второго с предпоследним и т. д. Не получается решить, в итоге выдаёт одни лишь нули...

  1. Вводятся числа. Конец ввода - 0. Найти сумму четных чисел и максимальное среди трехзначных отрицательных (программа и блок-схема) Пожалуйста ПОМОГИТЕ!

  1. Сформировать квадратную матрицу порядка n по заданному числу 100001 100021 100301 104001 150001 600001

  1. Помогите пожалуйста написать код по заданию: Дан двухмерный массив размером M x N. Преобразовать его по правилу - умножить на минимальный элемент этой матрицы. Из первых четырех строк массива сформировать четыре новых вектора. Преобразовать каждый из них по правилу - если у массива есть хотя бы один элемент, принадлежащий отрезку [a,b], то все отрицательные элементы заменить нулями, в противном случае - единицами.

  1. Очень прошу, помогите, кто чем сможет) буду очень благодарна... Написать программу и если можно, без функций и процедур. Задание: Заполнить матрицу целыми числами по образцу:

  1. Задана линейная таблица, состоящая из целых чисел. Определить есть ли в этой таблице хотя бы одно число кратное k. Помогите пожалуйста, очень прошу)

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