Скачать презентацию
Идет загрузка презентации. Пожалуйста, подождите
1
Поиск максимального и минимального элемента линейного массива на языке 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;
![Поиск максимального и минимального элемента линейного массива на языке 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], );](http://images.myshared.ru/19/1206755/slide_1.jpg "Поиск максимального и минимального элемента линейного массива на языке 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], );")
2
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.
![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.](http://images.myshared.ru/19/1206755/slide_2.jpg "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.")
Еще похожие презентации в нашем архиве:
![PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR i.](/thumbs/6/682838/big_thumb.jpg "PROGRAM example1; const m=100; var a : ARRAY [1.. m] of INTEGER; i,k,n,q : INTEGER; BEGIN readln (n); randomize; WRITELN('Полученный массив:' ); FOR 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.](/thumbs/6/535442/big_thumb.jpg "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.")
![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 ]](/thumbs/4/97932/big_thumb.jpg "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]](/thumbs/4/258608/big_thumb.jpg "Проверка пройденного материала. Исправьте ошибки в решении задачи: заполнить и вывести массив W(3) вещественных чисел Program Mass; Var b:Array[1..10]")
![Шутилина Л.А., Lshutilina@yandex.ru. 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]](/thumbs/6/723134/big_thumb.jpg "Шутилина Л.А., Lshutilina@yandex.ru. 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]")
![13.04.10 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;](/thumbs/6/690437/big_thumb.jpg "13.04.10 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 [ 1.. 20 ] OF i ; BEGIN ; : NumberX.](/thumbs/19/1200635/big_thumb.jpg "I := 1, 20 вывод В массиве нет числа X PROGRAM VAR, INTEGER Rand FORTO Example2 ; :=:= i 120DO BEGIN WRITE() : ARRAY [ 1.. 20 ] OF i ; BEGIN ; : NumberX.")
