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;
{Вычисление суммы}
