Слайд 2
![Составить программу определения максимального элемента одномерного массива и индекса максимального элемента.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-1.jpg)
Составить программу определения максимального элемента одномерного массива и индекса максимального
элемента.
Слайд 3
![program maximum; var i, n, imax: integer; a: array[1..50] of](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-2.jpg)
program maximum;
var
i, n, imax: integer;
a: array[1..50] of real
;
max: real;
begin
write(‘ввод n ’); readln(n);
writeln(‘ввод элементов массива’);
for i:=1 to n do
begin
write(‘a[’, i, ‘] = ‘); readln(a[i]);
end;
Слайд 4
![max:=a[1]; imax: =1; for i:=2 to n do begin if](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-3.jpg)
max:=a[1]; imax: =1;
for i:=2 to n do
begin
if a[i]>max then
begin
max:=a[i]; imax :=i;
end;
end;
writeln(‘максимальный элемент: ’, ‘a[‘, imax, ’]=‘, a[imax]);
end.
Слайд 5
![Составить программу определения минимального элемента одномерного массива и индекса минимального элемента.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-4.jpg)
Составить программу определения минимального элемента одномерного массива и индекса минимального
элемента.
Слайд 6
![program minimum; var i, n, imin: integer; a: array[1..50] of](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-5.jpg)
program minimum;
var
i, n, imin: integer;
a: array[1..50] of real
;
min: real;
begin
write(‘ввод n ’); readln(n);
writeln(‘ввод элементов массива’);
for i:=1 to n do
begin
write(‘a[’, i, ‘] = ‘); readln(a[i]);
end;
Слайд 7
![min:=a[1]; imin: =1; for i:=2 to n do begin if](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-6.jpg)
min:=a[1]; imin: =1;
for i:=2 to n do
begin
if a[i] begin
min:= a[i]; imin:= i;
end;
end;
writeln(‘минимальный элемент: ’, ‘a[‘, imin, ’]=‘, a[imin]);
end.
Слайд 8
![Задан одномерный массив. Поменять местами максимальный и минимальный элементы массива.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-7.jpg)
Задан одномерный массив. Поменять местами максимальный и минимальный элементы массива.
Слайд 9
![program obmen; var i, n, imax, imin: integer; a: array[1..50]](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-8.jpg)
program obmen;
var
i, n, imax, imin: integer;
a: array[1..50] of
real ;
max, min, p : real;
begin
write(‘ввод n ’); readln(n);
writeln(‘ввод элементов массива’);
for i:=1 to n do
begin
write(‘a[’, i, ‘] = ‘); readln(a[i]);
end;
Слайд 10
![max:=a[1]; imax: =1;min:=a[1]; imin:=1; for i:=2 to n do begin](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-9.jpg)
max:=a[1]; imax: =1;min:=a[1]; imin:=1;
for i:=2 to n do
begin
if a[i]>max then
begin
max:=a[i]; imax :=i;
end
else
if a[i] begin
min:=a[i]; imin :=i;
end;
end;
Слайд 11
![p:=a[imin]; a[imin]:= a[imax]; a[imax]:= p; for i:=1 to n do write(‘ a[’, i, ‘]=‘, a[i]); end.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-10.jpg)
p:=a[imin];
a[imin]:= a[imax];
a[imax]:= p;
for i:=1 to n do
write(‘ a[’, i, ‘]=‘,
a[i]);
end.
Слайд 12
![Задан одномерный массив. Определить количество элементов, равных максимальному элементу массива.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-11.jpg)
Задан одномерный массив. Определить количество элементов, равных максимальному элементу массива.
Слайд 13
![program kolmax; var i, n, imax, kmax: integer; a: array[1..50]](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-12.jpg)
program kolmax;
var
i, n, imax, kmax: integer;
a: array[1..50] of
real ;
max: real;
begin
write(‘ввод n ’); readln(n);
writeln(‘ввод элементов массива’);
for i:=1 to n do
begin
write(‘a[’, i, ‘] = ‘); readln(a[i]);
end;
Слайд 14
![max:=a[1]; for i:=2 to n do begin if a[i]>max then](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-13.jpg)
max:=a[1];
for i:=2 to n do
begin
if
a[i]>max then
begin
max:=a[i]; kmax :=1;
end
else
if a[i] = max then
kmax := kmax + 1;
end;
writeln(kmax, ‘ - количество элементов, равных максимальному элементу массива’);
end.
Слайд 15
![Задан одномерный массив. Определить максимальный среди отрицательных элементов массива.](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-14.jpg)
Задан одномерный массив. Определить максимальный среди отрицательных элементов массива.
Слайд 16
![program max_otr; var i, j, n: integer; a: array[1..50] of](/_ipx/f_webp&q_80&fit_contain&s_1440x1080/imagesDir/jpg/395285/slide-15.jpg)
program max_otr;
var
i, j, n: integer;
a: array[1..50] of real
;
max: real;
begin
write(‘ввод n ’); readln(n);
writeln(‘ввод элементов массива’);
for i:=1 to n do
begin
write(‘a[’, i, ‘] = ‘); readln(a[i]);
end;