[i]Program Task17;
[i]
[i]Var
[i]MAS : Array[1..15] of Integer;
i,min,max,razn : Integer;
Begin
Writeln ('Введите элементы массива MAS[15]');
For i:=1 to 15 do
begin
Write('MAS[',i,']=');
Readln(MAS[i]);
end;
Writeln('Сформирован массив MAS[15]');
For i:=1 to 15 do
Write(MAS[i]:8);
min:=MAS[1];
max:=MAS[1];
for i:=2 to 15 do
begin
if MAS[i]>max then
max:=MAS[i];
if MAS[i]<min then
min:=MAS[i];
end;
Writeln;
Writeln('Максимум в массиве : ',max);
Writeln('Минимум в массиве : ',min);
razn:=max-min;
MAS[1]:=sqr(razn);
Writeln('После преобразования массив MAS[15] имеет вид:');
For i:=1 to 15 do
Write(MAS[i]:8);
Readln;
End.