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

Формулировка задачи:

Помогите. Составит программу, в которой вводится размер массива (одномерный). Выделить память, найти произведение наибольшего и наименьшего элемента. Освободить память. Начало программы вроде правильно.
program Est;
 
type
mss = ^mas;
mas = array of integer;
 
var
a: mss;
i, s, n, j: byte;
sr,cr: real;
 
begin
s:=0;
new(a);
write('Введите размер массива: ');
readln(n);
setlength(a^, n);
for i := 1 to a^.Length - 1 do
begin
a^[i] := random(7) + 1;
write(a^[i],' ');
j:=i;
end;

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

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.

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


СОХРАНИТЬ ССЫЛКУ