Учебно-методическое пособие для студентов специальности 1-08 01 01 «Профессиональное обучение

: 
 
1 способ: 
Var имя_массива : Array [n..m] Of тип_элементов; 

---

114 
2 способ: 
Type имя_типа=Array [n..m] Of тип_элементов; 
Var имя_массива : имя_ типа; 
Слова Type (тип), Array (ряд), Of (из) – служебные слова. Имя 
типа и имя массива дает пользователь. В квадратных скобках 
указывается интервал изменения индексов элементов массива, 
поэтому n, m обязательно должны быть константами порядкового 
типа. Тип элементов называется базовым типом массива и может 
быть любым типом языка ПаскальАВС, кроме файлового типа. 
Ввод элементов одномерного массива с клавиатуры
и вывод на экран 
 
Пример 1. Составьте блок-схему (рис. 8.1) и напишите 
программу решения следующей задачи: с клавиатуры вводятся 
n <= 50 вещественных чисел. Найдите сумму отрицательных 
элементов данного массива. 
 
Program Primer_1; 
Type mas = Array[1..50] of Real; 
Var a:mas; s:Real; i,n:Integer; 
Begin 
Writeln('Ввести размер массива, т.е.количество элементов 
массива'); 
Readln(n); 
{Ввод самих элементов массива с клавиатуры} 
For i:=1 to n do 
Begin 
Writeln('Ввести a[',i,']'); 
Readln(a[i]); 
End; 
{Вывод элементов массива на экран: все элементы в одну 
строку} 
Writeln('Массив a:'); 
For i:=1 to n do Write(a[i]:6:2); 
Writeln; 
{Вычисление суммы} 

---

115 
s:=0;
For i:=1 to n do if a[i]<0 Then s:=s+a[i]; 
{вывод ответа}
Writeln('Сумма=',s:8:2); 
End.
 
 
Рис. 8.1. Блок-схема к примеру 1 

---

116