Оцените презентацию от 1 до 5 баллов!
Тип файла:
ppt / pptx (powerpoint)
Всего слайдов:
17 слайдов
Для класса:
1,2,3,4,5,6,7,8,9,10,11
Размер файла:
86.99 kB
Просмотров:
59
Скачиваний:
0
Автор:
неизвестен
Слайды и текст к этой презентации:
№1 слайд![](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img0.jpg)
№2 слайд![Составить программу](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img1.jpg)
Содержание слайда: Составить программу определения максимального элемента одномерного массива и индекса максимального элемента.
№3 слайд![program maximum var i, n,](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img2.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 imax for i to n do](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img3.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 слайд![Составить программу](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img4.jpg)
Содержание слайда: Составить программу определения минимального элемента одномерного массива и индекса минимального элемента.
№6 слайд![program minimum var i, n,](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img5.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 imin for i to n do](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img6.jpg)
Содержание слайда: 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 слайд![Задан одномерный массив.](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img7.jpg)
Содержание слайда: Задан одномерный массив. Поменять местами максимальный и минимальный элементы массива.
№9 слайд![program obmen var i, n, imax,](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img8.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 imax min a imin for i](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img9.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]<min then
begin
min:=a[i]; imin :=i;
end;
end;
№11 слайд![p a imin a imin a imax a imax](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img10.jpg)
Содержание слайда: p:=a[imin];
a[imin]:= a[imax];
a[imax]:= p;
for i:=1 to n do
write(‘ a[’, i, ‘]=‘, a[i]);
end.
№12 слайд![Задан одномерный массив.](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img11.jpg)
Содержание слайда: Задан одномерный массив. Определить количество элементов, равных максимальному элементу массива.
№13 слайд![program kolmax var i, n,](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img12.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 for i to n do begin if](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img13.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 слайд![Задан одномерный массив.](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img14.jpg)
Содержание слайда: Задан одномерный массив. Определить максимальный среди отрицательных элементов массива.
№16 слайд![program max otr var i, j, n](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img15.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;
№17 слайд![j while j lt n and a j gt do](/documents_6/66e03c4de0e9ab69b7989e565fa29dee/img16.jpg)
Содержание слайда: 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.