Презентация Составить программу определения максимального элемента одномерного массива и индекса максимального элемента онлайн
На нашем сайте вы можете скачать и просмотреть онлайн доклад-презентацию на тему Составить программу определения максимального элемента одномерного массива и индекса максимального элемента абсолютно бесплатно. Урок-презентация на эту тему содержит всего 17 слайдов. Все материалы созданы в программе PowerPoint и имеют формат ppt или же pptx. Материалы и темы для презентаций взяты из открытых источников и загружены их авторами, за качество и достоверность информации в них администрация сайта не отвечает, все права принадлежат их создателям. Если вы нашли то, что искали, отблагодарите авторов - поделитесь ссылкой в социальных сетях, а наш сайт добавьте в закладки.
Оцените презентацию от 1 до 5 баллов!
- Тип файла:ppt / pptx (powerpoint)
- Всего слайдов:17 слайдов
- Для класса:1,2,3,4,5,6,7,8,9,10,11
- Размер файла:86.99 kB
- Просмотров:59
- Скачиваний:0
- Автор:неизвестен
Слайды и текст к этой презентации:
№1 слайд
Содержание слайда:
№2 слайд
Содержание слайда: Составить программу определения максимального элемента одномерного массива и индекса максимального элемента.
№3 слайд
Содержание слайда: 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 a[i]>max then
begin
max:=a[i]; imax :=i;
end;
end;
writeln(‘максимальный элемент: ’, ‘a[‘, imax, ’]=‘, a[imax]);
end.
№5 слайд
Содержание слайда: Составить программу определения минимального элемента одномерного массива и индекса минимального элемента.
№6 слайд
Содержание слайда: 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 a[i]<min then
begin
min:= a[i]; imin:= i;
end;
end;
writeln(‘минимальный элемент: ’, ‘a[‘, imin, ’]=‘, a[imin]);
end.
№8 слайд
Содержание слайда: Задан одномерный массив. Поменять местами максимальный и минимальный элементы массива.
№9 слайд
Содержание слайда: 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
if a[i]>max then
begin
max:=a[i]; imax :=i;
end
else
if a[i]<min then
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.
№12 слайд
Содержание слайда: Задан одномерный массив. Определить количество элементов, равных максимальному элементу массива.
№13 слайд
Содержание слайда: 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
begin
max:=a[i]; kmax :=1;
end
else
if a[i] = max then
kmax := kmax + 1;
end;
writeln(kmax, ‘ - количество элементов, равных максимальному элементу массива’);
end.
№15 слайд
Содержание слайда: Задан одномерный массив. Определить максимальный среди отрицательных элементов массива.
№16 слайд
Содержание слайда: 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;
№17 слайд
Содержание слайда: j: =1;
while (j<n) and (a[j] >=0)do j:=j + 1;
if j <= n then
begin
max:= a[j];
for i:= j + 1 to n do
if a[i] < 0 then
if a[i]>max then
max:=a[i];
writeln(max);
end
else
writeln(‘ отрицательных элементов нет’);
end.
Скачать все slide презентации Составить программу определения максимального элемента одномерного массива и индекса максимального элемента одним архивом:
