Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

lab_inf / LAB5

.PAS
Скачиваний:
18
Добавлен:
26.03.2015
Размер:
564 б
Скачать
Program lab5;
const Nmax=60;
type MassivD= ARRAY[1..Nmax] of real;
var
D:massivD;
N,i,imin,imax:integer;
min,max:real;
begin
writeln('vvedite N');
readln(N);
for i:=1 to N do
begin
writeln('vvedite D[',i,']:');
read(D[i]);
end;
min:=D[1]; imin:=1;
max:=D[1]; imax:=1;
for i:=2 to N do
begin
if D[i]<min then begin min:=D[i]; imin:=i end ;
if D[i]>max then begin max:=D[i]; imax:=i end;
end;
D[imax]:=min;
D[imin]:=max;
writeln('max=',max:4:1);
writeln('min=',min:4:1);
writeln('massivD:');
for i:=1 to N do
Write(D[i]:4:1,'');
end.

Соседние файлы в папке lab_inf