Поиск максимального и минимального элемента линейного массива на языке Turbo Pascal. Program poisk; Const n=10; Type mass=array[1..n] of integer; Var a:mass;

Презентация:



Advertisements
Похожие презентации
PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.
Advertisements

Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I). Для этого вначале будем.
Тема: Нахождение минимального и максимального элемента в массиве.
Перед началом изучения новой темы прослушайте моё сообщение.
1 Программирование на языке Паскаль Тема 2. Максимальный элемент массива.
Решение задач с использованием массивов
5.Дана матрица А и вектор Х соответствующих размерностей. Нечетные строки матрицы заменить элементами вектора Х. Результаты работы: n=4 m=
Чтобы найти максимальный элемент в массиве и потом производить с ним какие-либо действия, нужно узнать его номер (индекс - I).Чтобы найти максимальный.
Цели урока: овладение умениями и навыками решения задач на нахождение максимального и минимального элементов массива; формирование умения применять на.
Program maxsimum; const n=10; var a:array [1..n] of integer; max,i:integer;begin ВВОД ЭЛЕМЕНТОВ МАССИВА; max:=a[1]; for i:=2 to n do if a[i]> max then.
Основные алгоритмы работы с одномерными массивами (поиск и сортировка) 8 класс 1.
К. Поляков, Программирование на языке Паскаль Часть II Тема: Поиск максимального элемента массива.
- это структура данных, представляющая собой упорядоченную совокупность значений одного типа.
PROGRAM example1; CONST N = 8; M = 10; VAR a : ARRAY [ 1.. N, 1.. M ] of INTEGER; i, j : INTEGER; BEGIN FOR i := 1 TO N DO FOR j := 1 TO M DO a[ i, j ]
Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]
3. Дана прямоугольная матрица, элементами которой являются целые числа. Поменять местами ее строки следующим образом: первую строку с последней, вторую.
1 Программирование на языке Паскаль Максимальный элемент массива.
Шутилина Л.А., A[1,1]A[1,2]A[1,3]A[1,4]A[1,5] A[2,1]A[2,2]A[2,3]A[2,4]A[2,5] A[3,1]A[3,2]A[3,3]A[3,4]A[3,5] A[4,1]A[4,2]A[4,3]A[4,4]A[4,5]
const n=10; var a:array[1..n] of integer; i,j,c,b,k:integer; begin randomize; for i:=1 to n do begin a[i]:=random(11)-5;write(a[i]:5) end;writeln;
I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ ] OF i ; BEGIN ; : NumberX.
Транксрипт:

Поиск максимального и минимального элемента линейного массива на языке Turbo Pascal. Program poisk; Const n=10; Type mass=array[1..n] of integer; Var a:mass; min,max,i: integer; Begin randomize; for i:=1 to n do begin a[i]:=random(51); write(a[i], ); end;

max:=a[1]; min:=a[1]; for i:=2 to n-1 do begin If max<=a[i] then max:=a[i]; If min=>a[i] then min:=a[i] ; end; Writeln; Writeln(min=,min,max=,max); End.