Дан целочисленный массив n=11 помогите. на языке паскаля
Дан целочисленный массив n=11 помогите. на языке паскаля
Гость
Ответ(ы) на вопрос:
ГостьProgram n1;
const
n = 11;
var
a: array[1..n] of integer;
mins: array[1..3] of integer;
i, j, idx, S: integer;
first: boolean;
begin
randomize;
S:=1;
for i:=1 to n do a[i]:=random(71)-31;
for j:=1 to 3 do begin
first:=true;
for i:=1 to n do
if first or (a[i]
Не нашли ответ?
Похожие вопросы