Question

Pascal abc . заполнить массив из 20-ти элементов целыми случайными числами в диапазоне [ -50; 50], вывести максимальный элемент и минимальный элемент и их индексы.

Answer 1

Program z;
var a:array[1..20] of integer;
i,mini,maxi,max,min:integer;
begin
randomize;
for i:=1 to 20 do
begin
a[i]:=random(-50,50);
write(a[i],' '); {вывод массива}
end;
writeln; {переход на новую строку после вывода массива}
max:=a[1];
maxi:=1;
min:=a[1];
mini:=1;
for i:=2 to 20 do
begin
if a[i]>max then begin max:=a[i]; maxi:=i; end;
if a[i]<min then begin min:=a[i]; mini:=i; end;
end;
writeln('max=',max,' max index=',maxi);
writeln('min=',min,' min index=',mini);
end.

Answer 2

Var max,min,i:integer; a:array [1..20] of integer; b:boolean;
begin
for i:=1 to 20 do 
begin
b:=random(1);
if b then do a[i]:=-1*random(50) else a[i]:=random(50);
end;
max:=a[1];
min:=a[1];
for i:=2 to 20 do begin
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];end;
for i:=1 to 20 do begin
if max=a[i] then writeln('Индекс максимального'i);
if min=a[i] then writeln('Индекс минимального'i);
end;
writeln('Максимальное'max);
writeln('Минимальное'min);
End.