№ | Определение | Фрагмент программы на Паскале |
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); |