program v1;
Var a:array [1..10] of integer;
i,j,j1,min,n,max,q:integer;
begin
randomize;
for i:=1 to 10 do a[i]:=random(31)+10;
Writeln (' Znachenija matracy ');
for i:=1 to 10 do write (a[i]:3); writeln;
Max:=a[1];
for i:=1 to 10 do
if a[i]>=max then begin
max:=a[i];
j:=i;
end;
min:=a[1];
for i:=1 to 10 do
if a[i]<=min then begin
min:=a[i];
j1:=i;
end;
q:=a[j1];
a[j1]:=a[j];
a[j]:=q;
For i:=1 to 10 do write (a[i]:3); writeln;
Writeln (' Maxim element = ',max);
writeln (' Minim element = ',min);
end.
для хранения данных, причем после перезагрузки данные не стираются