Помогите с решением задаче, возможно это на Паскале.

{через последовательность}
var n, i, max, min, x: integer;
begin
write (' n = ');
readln(n);
i:=1;
while i<=n do
begin
x:=50+ random (651);
if i=1 then
begin
max:=x;
min:=x;
end;
Write (x:4);
if x > max then max:=x;
if x < min then min:=x;
inc (i);
end;
writeln;
writeln ('maximum = ', max, 'minimum = ':15, min);
end.

{через массив}
var n, i, max, min: integer;
a: array [1..100] of integer;
begin
write (' n = ');
readln(n);
for i:=1 to n do
begin
a[i]:=50+ random (651);
if i=1 then
begin
max:=a[i];
min:=a[i];
end;
Write (a[i]:4);
if a[i] > max then max:=a[i];
if a[i] < min then min:=a[i];
end;
writeln;
writeln ('maximum = ', max, 'minimum = ':15, min);
end.

оператор randomize задает случайность генератора
функция rnd или random
возращает число но надо справку читать кажись в диапозоне от 0 до 0.999 с шагом 0.01
заполняй в цикле
ну если умножить на 1000 получиться от 0 до 999
поиск в цилкле сравнивай заведомом с самым дорогим
массив записей нужно либо два независимых массива
у записи 2 поля наименование и цена

const n=20;
var a: array[1..n] of integer;
i,min,max:integer;
begin
for i:=1 to n do
begin
a[i]:=random(651)+50;
if i=1 then begin min:=a[i];max:=a[i] end else
begin if a[i]max then max:=a[i] end;
write('Tovar ',i,'-',a[i],'rub; ');
end;
writeln;
writeln('min=',min);
writeln('max=',max);
end.
(Текст исказился при копировании)

var
prices: array[1..20] of Integer;
i, min, max: Integer;
begin
Randomize;
for i := 1 to 20 do prices[i] := Random(651) + 50;
min := 700;
max := 50;
for i := 1 to 20 do
begin
if prices[i] < min then min := prices[i];
if prices[i] > max then max := prices[i];
end;
WriteLn('Минимальная цена: ', min);
WriteLn('Максимальная цена: ', max);
end.

"Помогите с решением задаче"

в чем помочь то ? .что не получается? где твой код ?

"возможно это на Паскале."

Так ты сама не знаешь на каком языке решение нужно ? .так может на С++ или на C# написать ?

На компьютере это делать надо.... =срзнач там например.... Больше похоже на вторую часть огэ. Я сдаю информатику но такое вижу впервые 0.0