массивы

Предварительное описание массива Для одномерного: Var Имямассива: array[Нижняяграница..Верхняя Граница] of Типэлементов; Var a: array[1..100] of integer; Для двумерного: Var Имямассива: array[Нижняяграница Индекс 1..Верхняя ГраницаИнд екс 1, Нижняяграница Индекс 2..Верхняя Граница Индекс 2 ] of Типэлементов; Var y: array[1..3,1..4] of integer;

Заполнение массива данными При вводе данных с клавиатуры For i:=1 to 5 do readln(a[i]); С помощью датчика случайных чисел Randomize; For i:=1 to n do x[i]:=random(100); Присваиванием заданных значений For i:=1 to n do J:=1 to m do A[I,j]:=0 Считывая значения элементов из файла

Вывод массива В столбец: For i:=1 to 5 do writeln(a[i]); В одну строку через пробел- разделитель: For i:=1 to 5 do write(a[i], ); С заданием формата, где под каждый элемент отводится 4 позиции: For i:=1 to 5 do write(a[i]:4);

Вывод матриц в стандартной форме записи – по строкам и столбцам – выполняется при помощи оператора writeln (без параметра) For i:=1 to n do Begin For j:=1 to m do Write(a[I,j]:4); Writeln; End;

Действия с массивами Вычисление сумм элементов: S:=0; For i:=1 to n do s:=s+a[i]; Вычисление произведения: S:=1; For i:=1 to n do s:=s*a[i]; Подсчёт количества элементов, удовлетворяющих условию: k:=0; For i:=1 to n do If a[i] mod 2=0 then k:=k+1;

Поиск элемента с заданным значением: i:=0; Repeat; i:=i+1; Until (a[i]=0)or (i=n); If a[i]=0 then writeln(Номер первого нулевого элемента=,i) else writeln(Таких элементов нет)