var array of Var x array 1 10

Объявление массива var имя_переменной: array [тип_индекса] of тип_элемента; Var x: array [1. . 10] of real; a, b: array [1. . 1000] of integer; const n = 6; type intmas = array [1. . n] of integer; var a, b : intmas;

Заполнение массива По закону: const n = 20 Var x: array [1. . n] of integer; I: byte; begin for i: =1 to n do a[i]: =i+5; p

Заполнение массива Случайными числами: [A, B] x=int(random(B-A))+A const n = 20 Var x: array [1. . n] of integer; I: byte; begin randomize; for i: =1 to n do a[i]: =int(random(40))-20; p

Заполнение массива Заполнение с клавиатуры: const n = 20 Var x: array [1. . n] of integer; I: byte; begin for i: =1 to n do read a[i]; p

Основные задачи на обработку массивов Обработка пар соседних чисел const n = 20; Var x: array [1. . n] of integer; I, k: byte; begin for i: =1 to n do read (a[i]); for i: =1 to n-1 do If a[i]*a[i+1]>0 then k: =k+1; writeln(k); end. p

Основные задачи на обработку массивов Нахождение максимального (минимального) элементов массивав const n = 20; Var a: array [1. . n] of integer; I, nomer: byte; max: integer; begin for i: =1 to n do read (a[i]); max: =a[1]; nomer: =1; for i: =2 to n do If a[i]>max then begin max: =a[i]; nomer: =I; end; writeln(max, nomer); end. p