13_Справочный материал по теме "Массивы"_10 класс_уч. Полякова К.

№

Определение

Фрагмент программы на Паскале

1

Описание массива 6 целых чисел

Обращение к элементу массива

Обращение к номеру элемента массива

2

Ввод массива с клавиатуры

3

Ввод массива через формулу

4

Ввод массива случайными числами

5

Вывод массива в столбик

6

Вывод массива в строку через пробел

7

Вывод массива в строку через равные промежутки

8

Условие поиска положительных элементов массива

9

Условие поиска четных элементов массива

10

Сумма элементов массива

11

Произведение элементов массива

12

Замена одного элемента массива

13

Замена нескольких элементов массива по условию

14

Поиск максимального элемента массива

15

Подсчет количества элементов массива, удовлетворяющих условию

№

Определение

Фрагмент программы на Паскале

1

Описание массива 6 целых чисел

Var a : array [1..9] of integer; {Массив с именем а из 9 целых чисел}

Var det: array [-8..-5] of real; {Массив с именем det из 4 действительных чисел}

Обращение к элементу массива

A[5] – {пятый элемент массива А} det[-6] {элемент с номером -6 массива det } R[i] – элемент с номером i массива R

Обращение к номеру элемента массива

i, 5, -6

2

Ввод массива с клавиатуры

For i := 1 to 9 do

begin write(‘a[‘ , I, ‘]=’); read(a[i]); end;

3

Ввод массива через формулу

For i := 1 to 9 do

begin a[i] := i*i+10; write(a[i]:3); end;

4

Ввод массива случайными числами

В промежутке [-20; 30]

For i := 1 to 9 do

begin a[i] := random(30+20+1)-20; write(a[i]:3); end;

5

Вывод массива в столбик

For i := 1 to 9 do

writeln(a[i]);

6

Вывод массива в строку через пробел

For i := 1 to 9 do

write(a[i], ‘ ‘ );

7

Вывод массива в строку через равные промежутки

For i := 1 to 9 do

write(a[i] : 5);

8

Условие поиска положительных элементов массива

if a[i] 0 then …

9

Условие поиска четных элементов массива

if a[i] mod 2 = 0 then …

10

Сумма элементов массива

For i := 1 to 9 do

S := S + a[i];

Writeln(‘сумма =’ , S);

11

Произведение элементов массива

P := 1;

For i := 1 to 9 do

P := P * a[i];

Writeln(‘ произведение=’ , P);

12

Замена одного элемента массива

A[1] := 12453; {первый элемент массива А заменить числом 12453}

Det[-7] := 0; {элемент с номером -7 массива Det заменить на ноль}

13

Замена нескольких элементов массива по условию

For i := 1 to 9 do

if a[i] mod 7 0 then a[i] := 111; {если элемент массива а не делится на 7, то заменить его числом 111}

14

Поиск максимального элемента массива

Max := a[1];

For i := 2 to 9 do

if a[i] max then max := a[i];

write(‘максимальный элемент=’; max);

15

Подсчет количества элементов массива, удовлетворяющих условию

count := a[1];

For i := 2 to 9 do

if a[i] 8 then count := count + 1;

write(‘Количество элементов не равных 8 ’; count);