Одномерные массивы

Массивы
Массив – это упорядоченная последовательность, состоящая из фиксированного количества величин одного типа.
Особенности:
все элементы имеют один тип
у массива есть имя
все элементы расположены в памяти рядом
Примеры:
список учеников в классе
квартиры в доме
школы в городе
данные о температуре воздуха за год, месяц…

Массив – пронумерованная совокупность ячеек памяти, названная одним именем
1 2 3 4 5 6 7
А
A [ 4 ] := 11;
Имя массива
Индекс (порядковый номер) элемента массива
Значение элемента массива
С точки зрения программирования: 1

Описание массива
Var имя:ARRAY[1..N] OF тип;
Объявление массива в разделе описания переменных:
Например:
Var 9К:Array[1..20] of string;
Var dom12:Array[1..100] of integer;
Имя массива
Количество элементов
Тип элементов
Var temp:Array[1..31] of real;
Var Nsc:Array[1..212] of string;

1. Заполнение массива с клавиатуры
.
.
.
For i:=1 to N do begin
Write(' a [ ' , i , ' ] = ' );
ReadLn ( a [ i ] );
End;
Заполнение массива

2. Заполнение массива «по формуле».
.
.
.
For i:=1 to N do
a[ i ]:= формула;
Заполнение массива

а) в столбик:
For i:=1 to N do Writeln(a[i]:4:2);
б) в строку
For i:=1 to N do Write(a[i]:4:2);
2.23
3.19
1.44
4.93
5.58
2.23 3.19 1.44 4.93 5.58
Вывод массива

Заполнение массива
Задача 2. Составить программу заполняющую массив из 10 элементов, числовой последовательностью: 1,4,9,16…
(где A i = i 2 )
Program n2;
Uses Crt;
var a:array[1..10] of integer;
i:integer;
begin
clrscr;
for i:=1 to 10 do begin
a[i]:=i*i;
write(a[i]:5);
end;
end.
Значение элемента массива зависит только от порядкового номера

Нахождение суммы элементов массива:
…
s:=0;
For i:=1 to N do
s:=s+ a[i];
WriteLn ('Сумма = ', s);
…
Нахождение суммы и произведения элементов массива
Предполагаем, что сумма равна нулю
Добавляем элемент
к сумме

Подсчет количества элементов удовлетворяющих условию:
k:=0;
For i:=1 to N do
If (условие) then k:=k+1;
WriteLn('Кол-во=‘ ,k);
Предполагаем, что таких элементов нет
Если такой элемент есть, то К увеличиваем на 1.
Подсчет количества элементов удовлетворяющих условию

Нахождение максимального элемента в массиве и его номера:
max:=a[1];
nmax:=1;
for i:=2 to N do
if (a[i]>max) then begin
max:=a[i];
nmax:=i;
end;
WriteLn(‘Max=’ ,max);
WriteLn(‘Номер=’ ,nmax);
Предполагаем, что наибольший элемент стоит на первом месте
Если находится больший элемент
Он становится максимальным
Когда массив закончился, выводим наибольший элемент и его номер
Максимальный и минимальный элемент массива