Презентация, доклад на тему Одномерные массивы в Паскале

последовательность однотипных величин.
Индекс – порядковый номер элемента массива

Каждый элемент массива обозначается индексированным именем в следующей форме: Имя массива [индекс].
Например: Т [2], Т [10].

страниц,
У каждой страницы есть номер (индекс).
Все страницы объединены под одним названием (название книги)

номер).
Элементами дома можно считать квартиры, у каждой из которых есть номер (индекс).

каждого из них есть номер (индекс).

[нижний индекс .. верхний индекс] of тип
Имя - имя переменной-массива;
array - ключевое слово, обозначающее, что переменная является массивом;
нижний_индекс и верхний_индекс - целые числа, определяющие диапазон изменения индексов элементов.
тип - тип элементов массива.

Пример: Т : array [1..12] of integer;
Создается массив Т из целых чисел, с нумерацией от 1 до 12 (всего 12 элементов).

do begin
Writeln (‘Введите ‘,I, ‘элемент массива’);
Readln (T [i]);
End;
Цикл «ПОКА»:
i:=1;
While i<=12 do
Begin
Writeln (‘Введите ‘,I, ‘элемент массива’);
Read (T [i]);
i:=i+1;
End;

do writeln (‘T [‘ ,I, ‘] = ‘, T[i] );

Цикл «ПОКА»:
i:=1;
While i<=12 do
Begin
Writeln (‘T [‘ ,I, ‘] = ‘, T[i] );
i:=i+1;
End;

элемент массива.

Program maximum;
var T: array [1..5] of integer;
var i,max:integer;
begin
for i:=1 to 5 do
begin
write ('Введите ',i, ' число:'); формирование массива
read (T [i]);
end;
max:= T[1];
for i:=1 to 5 do
begin обработка массива
if T[i]>max then max:=T[i]
end;
write ('максимальное число: ',max);
end.

массива.

Program summa;
var T: array [1..8] of integer;
var i,s:integer;
begin
for i:=1 to 8 do
begin
write ('Введите ',i, ' число:'); формирование массива
readln (T [i]);
end;
for i:=1 to 8 do
Begin обработка массива
if T[i]>0 then s:=s+ T[i]
end;
write ('Сумма положительных элементов массива равна ',s);
end.

массива.

Program summa_masiva;
var T: array [1..6] of integer;
var i,s:integer;
begin
for i:=1 to 6 do
begin
write ('Введите ',i, ' число:');
read (T [i]);
end;
for i:=1 to 6 do if T[i]<0 then s:=s+ 1;
write ('Количество отрицательных элементов массива:',s);
end.

результатом становится целое число в диапазоне от 0 до x.
При выполнении функции Random (50) – 25 ее результатом становится целое число в диапазоне от -25 до 25.

[1..20] of integer;
Var i: integer;
Begin
{Установка датчика случайных чисел}
Randomize;
{Заполнение массива случайными числами и вывод их на экран}
Writeln (‘Массив случайных чисел:’);
For i:=1 to 20 do
Begin
Rand [i]:= random (100); Write (Rand [i]:4);
End;
End.

в массив.

Program Example;
Var Rand: array [1..20] of integer; i, x, s: integer;
Begin
Randomize;
Writeln (‘Массив случайных чисел:’);
For i:=1 to 20 do Begin
Rand [i]:= random (100); Write (Rand [i]:4);
End;
Writeln (‘Введи число x:’); Readln (x);
For i:=1 to 20 do if Rand [i]:=x then s:=s+1;
If s:=0 then write (‘В массиве нет числа ’,x) else write (‘Число ’,x, ‘ в массиве присутствует ’ ,s, ‘раз’);
End.