|
Листинг:
program
nzl_lab2;
type
mas=array
[1..255] of real;
var
a:mas;
t,i,n:integer;
v,max:real;
begin
write('Введите
количество элементов массива',' ');
readln(n);
if
n=0 then
begin
writeln('Ошибка:
В массиве отсутствуют элементы.');
readln;
halt;
end;
writeln('Введите
массив');
for
i:=1 to n do
begin
write(i,'=
');
readln(a[i]);
end;
writeln('Исходный
массив');
for
i:=1 to n do
write(a[i]:7:1);
max:=a[1];
t:=1;
v:=a[n];
for
i:=2 to n do
begin
if
a[i]>max then
begin
max:=a[i];
t:=i;
end;
end;
a[n]:=max;
a[t]:=v;
writeln;
writeln('Полученный
массив');
for
i:=1 to n do
write(a[i]:7:1);
readln;
end.
Результаты:
Введите
количество элементов массива 5
Введите
массив
1=
5
2=
678
3=
234
4=
-65
5=
0
Исходный
массив
5.0
678.0 234.0 -65.0 0.0
Полученный
массив
5.0
0.0 234.0 -65.0 678.0
Введите
количество элементов массива 6
Введите
массив
1=
567
2=
56
3=
3
4=
-783
5=
567
6=
-34
Исходный
массив
567.0
56.0
3.0
-783.0
567.0
-34.0
Полученный
массив
-34.0
56.0
3.0
-783.0
567.0
567.0
|