Использование значений массивов, ввод и вывод значений массивов

Var

A,D : array[l..4] of real;

В : array[1..10,1..15] of integer;

I, J, К : integer;

S : real;

Инициализация (присваивание начальных значений) массива заключается в присваивании каждому элементу массива одного и того же значения, соответствующего базовому типу. Наиболее эффективно эта операция выполняется с помощью оператора for, например:

Инициализация элементов одномерного массива А:

for I := 1 to 4 do A[I] := 0;

Для инициализации двумерного массива обычно используется вложенный оператор for, например:

Инициализация двумерного массива В:

for I := I to 10 do

for J := 1 to 15 do B[I,J]:= 0;

Для ссылки на отдельные элементы массива используется переменная с индексом: Имя массива[индекс].Чтобы получить доступ к конкретному элементу массива, в качестве индекса можно использовать не только целое число, соответствующее порядковому номеру этого элемента в массиве, но и выражение, значение которого равно упомянутому целому числу.

Например, при обращении к элементам некоторого массива "A: Array[1..100] of Real", в качестве индекса можно использовать любое арифметическое выражение, значением которого будет целое число из диапазона 1..100:

A[56]; A[i+7]; A[i div j] .

Можно ввести и значения отдельных элементов, а не всего массива. Так, операторами:

Read(A[3]); { ввод значение третьего элемента вектора А }

Read(B[6,9]);{ ввод значение элемента, расположенного в шестой строке девятого столбца матрицы В }

Оба значения набираются на одной строке экрана, начиная с текущей позиции расположения курсора.

Вводить и выводить значения из массивов целесообразно поэлементно, используя в цикле операторы Readln, Write, Writeln и оператор присваивания.

Program Vvod_Vivod;  
Var i:integer;  
A:Array[1..20] of Real;  
B:Char;  
Begin  
Writeln('Введите числа в массив: ');  
FOR i:=1 TO 20 DO  
begin Write('A[',i,']= '); Readln(A[i]) end;  
Writeln('Массив заполнен, будете выводить');  
Write('значения на экран? ("Y"-да, "N"-нет)=>');  
Readln(B);  
IF UpCase(B)="Y" THEN {если прописной вариант введенной}
FOR i:=1 TO 20 DO Writeln('A[',i,']=',A[i]:6:2); {буквы является "Y", то}
Readln  
End.