Структурированный тип данных массив

Изучить  §3 "Структурированный тип данных массив"

Внимательно изучите примеры.

Важно знать как выполнить:

Пример 3.2

В 10 Б классе 27 учащихся. В классном журнале указаны фамилия и имя каждого из них. Для хранения списка учащихся можно использовать массив S, состоящий из 27 строк. Индекс каждого элемента — порядковый номер учащегося из списка в классном журнале. Тогда запись S[5] — фамилия и имя учащегося под номером 5.

Пример 3.3. 

Каждый день в декабре измеряли температуру воздуха. Для хранения значений температуры можно использовать массив Т, состоящий из 31 вещественного числа. Индекс элемента — номер дня в декабре. Запись Т[15] — температура воздуха 15 декабря.

Пример 3.14. 

Случайным образом задать n элементов массива а. Каждый элемент — число из отрезка [0; 100].

var a: array[1..100] of integer;

n: integer;

begin

writeln('Введите количество

чисел в массиве ');

readln(n);

for var i := 1 to n do

a[i] := random(101);

...

end.

Пример 3.19. 

Вывод элементов массива в строку (в обратном порядке).

for var i := n downto 1 do

write(a[i], ' ');

Пример 3.20.

V. Программа:

var a: array[1..10] of integer;

n, S: integer;

begin

writeln('Введите количество чисел в массиве >=5');

readln(n);

writeln('Введите ', n,' чисел через пробел ');

for var i := 1 to n do

read(a[i]);

S := a[3] + a[5];

write('Сумма чисел = ', S);

end.

Пример 3.21. 

Написать программу, которая сформирует массив из n чисел из отрезка [0; 100] случайным образом. Вывести массив на экран.

var a: array[1..100] of integer;

n: integer;

begin

writeln('Введите количество чисел в массиве ');

readln(n);

for var i := 1 to n do

a[i] := random(101);

for var i := 1 to n do

write(a[i],' ');

end.

Пример 3.22. 

Написать программу, которая сформирует массив из n четных чисел из отрезка [20; 70] случайным образом. Вывести на экран k-й элемент массива.

var a: array[1..100] of integer;

n, k: integer;

begin

writeln('Введите количество чисел в массиве ');

readln(n);

for var i:=1 to n do

begin

a[i]:=2*random(10, 35);

write(a[i], ' ');

end;

writeln;

writeln('Введите k ');

readln(k);

write(a[k]);

end.

Пример 3.23. 

Написать программу, которая введет с клавиатуры список фамилий учащихся и выведет из него фамилии с номерами от k1 до k2.

var s: array [1..20] of string;

n, k1, k2: integer;

begin

writeln('Количество учащихся ');

readln(n);

writeln('Фамилии ');

for var i := 1 to n do

readln(s[i]);

writeln('k1 и k2 ');

readln(k1, k2);

for var i := k1 to k2 do

writeln(s[i]);

end.

Пример 3.24. 

Задать случайным образом два массива X и Y, содержащих по n чисел из отрезка [100; 300], и массив R, содержащий n чисел из отрезка [5; 100]. Построить на экране окружности, координаты центров которых хранятся в массивах X и Y, а радиусы в массиве R.

uses graphABC;

var X, Y, R: array[1..100]

of integer;

n: integer;

begin

SetWindowSize(400,400);

writeln('Введите количество чисел в массиве ');

readln(n);

writeln(n);

for var i := 1 to n do

begin

X[i]:= random(100,300);

Y[i]:= random(100,300);

R[i]:= random(5,100);

end;

SetBrushStyle(bsClear);

for var i := 1 to n do

circle(X[i],Y[i],R[i])

end.

Упражнения

Введите количество учащихся в классе: 15

Вводите рост учащихся

учащийся номер 1: 165

учащийся номер 2: 170

учащийся номер 3: 156