Program Pr1; uses crt; var mas:array[1..15] of integer; i,max,min,b,v:integer; Begin clrscr; for i:=1 to 15 do mas[i]:=random(10); for i:=1 to 15 do write(mas[i]); max:=0; min:=100000; b:=0; for i:=1 to 15 do begin if mas[i]>max then max:=i; if mas[i]<min then min:=i; end; if max>min then for i:=min to max div 2 do begin v:=mas[max-b]; mas[max-b]:=mas[i]; mas[i]:=v; b:=b+1; end else for i:=max to min div 2 do begin v:=mas[min-b]; mas[min-b]:=mas[i]; mas[i]:=v; b:=b+1; end; writeln(); for i:=1 to 15 do write(mas[i]); end.
На данный момент компьютер имеет важную роль в жизни каждого человека . Но у него есть и плюсы и минусы . Плюсы состоят в том что ,с компьютера мы можем найти нужную нам информацию в интернете ,мы можем общаться с людьми ,можем играть ,развлекаться, смотреть смешые ролики ,писать научные работы , развиваться .Минусы состоят в том что ,компьютер не очень то и хорошо действует на организм человека .Если слишком долго проводить свое время у компьютера ,то ваше зрение будет по тихоньку портится .Порой резко может заболеть голова . Появляется зависимость ,которая плохо влият на человека ,отнимает массу свободного времени . Я провожу у компьютера мало времени,только на все самое нужное .Я считаю это важным открытием для человечества .Главное соблюдать правила ,и проводить определенное колличество времени около него.
Program Pr1;
uses crt;
var mas:array[1..15] of integer;
i,max,min,b,v:integer;
Begin
clrscr;
for i:=1 to 15 do mas[i]:=random(10);
for i:=1 to 15 do write(mas[i]);
max:=0;
min:=100000;
b:=0;
for i:=1 to 15 do begin
if mas[i]>max then max:=i;
if mas[i]<min then min:=i;
end;
if max>min then for i:=min to max div 2 do begin
v:=mas[max-b];
mas[max-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end
else for i:=max to min div 2 do begin
v:=mas[min-b];
mas[min-b]:=mas[i];
mas[i]:=v;
b:=b+1;
end;
writeln();
for i:=1 to 15 do write(mas[i]);
end.