Алгоритмы и их свойства (стр. 14 )

9.  Дан массив чисел от 01.01.01. Вычислить количество элементов, оканчивающихся нулем.

10.  Дан массив из 45 целых чисел от 1 до 1000. Вычислить сумму всех двузначных элементов массива.

11.  Дан массив из 27 элементов
- все отрицательные элементы заменить их модулями;
- все положительные увеличить на величину индекса;
- из всех четных элементов вычесть 5;
- все нечетные элементы возвести в квадрат.

12.  В одномерном массиве произвольных чисел поменять местами наименьший элемент (предположив, что такой элемент один) с первым элементом массива.

13.  Вычислить количество и сумму элементов произвольного одномерного массива, значение которых больше среднего арифметического значения всех элементов массива.

14.  В одномерном массиве произвольных чисел найти наибольший элемент из отрицательных.

15.  Даны два массива A и B из 20 целых чисел каждый. Составить третий массив С, элементами которого будут элементы с четными номерами массива A и элементы с нечетными номерами массива B.

16.  В массивах A, B, C хранятся сведения о выручке трех магазинов за каждый день июля. Все магазины принадлежат одной фирме. Получить суммарную выручку фирмы за июль.

17.  В одномерном массиве произвольных чисел 2-ой элемент поставить на 1-ое место, 3-й - на 2-ое и т. д. Первый элемент поставить на место последнего. Вывести исходный и полученный массивы.

18.  В массиве все максимальные элементы заменить первым элементом, а все минимальные элементы заменить последним элементом.

19.  В массиве хранится информация о стоимости 15 различных телевизоров в магазине. Вычислить общую цену всех телевизоров с учетом НДС (18% от стоимости), если стоимость каждого телевизора равна произведению его номера на 1500.

20.  В трех массивах хранится информация о температурах трех зимних месяцев (A – декабрь, B – январь, C - февраль). Определить среднюю температуру зимой.

21.  В массиве хранятся сведения о курсах «Евро» в 19 обменных пунктах. Определить номера обменных пунктов, в которых самый выгодный курс покупки и самый выгодный курс продажи.

22.  Имеются следующие сведения о абитуриентах: номер в списке, ФИО, сумма набранных баллов на вступительных экзаменах. Требуется напечатать список абитуриентов в порядке убывания суммы набранных ими баллов.

Двумеpный массив

1. Напишите фрагменты программ получения следующих массивов:

а)	б)	в)	г)
2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9	0 -1 -2 1 0 -1 2 1 0 3 2 1 4 3 2	0 0 0 1 0 0 1 0 0 1 0 0 1 0 0 0	5 4 3 2 1 5 4 3 2 1 5 4 3 2 1 5 4 3 2 1 5 4 3 2 1
д)	е)	ж)	з)
1 0 0 0 1 1 0 0 1 1 1 0 1 1 1 1	1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25	0 2 2 2 2 1 0 2 2 2 1 1 0 2 2 1 1 1 0 2 1 1 1 1 0	1 2 3 4 5 5 4 3 2 1 1 2 3 4 5 5 4 3 2 1 1 2 3 4 5

2. Записать результат, который программа выведет на экран

а) Program massiv_1; var i, j: integer; x:array [1..4, 1..6] of integer; Begin for i := 1 to 4 do begin for j := 1 to 6 do begin x[i, j] := j; write(x[i, j]); end; writeln; end; End.	б) Program massiv_2; var i, j: integer; b:array [1..5, 1..3] of integer; Begin for i := 1 to 5 do begin for j := 1 to 3 do begin b[i, j] := i*j; write(b[i, j]); end; writeln; end; End.	в) Program massiv_3; var i, j: integer; x:array [1..5, 1..6] of integer; Begin for i := 1 to 5 do begin for j := 1 to 6 do begin x[i, j] := i div j; write(x[i, j]); end; writeln; end; End.
г) Program massiv_4; var i, j: integer; a:array [1..4, 1..4] of integer; Begin for i := 1 to 4 do begin for j := 1 to 4 do begin if i mod 2 <>0 then a[i, j] := j else a[i, j] := 4 – j; write(a[i, j]); end; writeln; end; End.	д) Program massiv_5; var i, j: integer; a:array [1..5, 1..5] of integer; Begin for i := 1 to 5 do begin for j := 1 to 5 do begin if i > j then a[i, j] := j else a[i, j] := i; write(a[i, j]); end; writeln; end; End.	е) Program massiv_6; var i, j: integer; a:array [1..4, 1..4] of integer; Begin for i := 1 to 4 do begin for j := 1 to 4 do begin if j>5 div 2 then a[i, j] := i else a[i, j] := i*2; write(a[i, j]); end; writeln; end; End.
ж) Program massiv_7; var i, j: integer; a:array [1..4] of integer; b:array [1..4, 1..4] of integer; Begin for i := 1 to 4 do a[i]:=i; for i := 1 to 4 do begin for j := 1 to 4 do begin b[i, j] := a[j] + i; write(b[i, j]); end; writeln; end; End.	з) Program massiv_8; var i, j: integer; a:array [1..5, 1..5] of integer; Begin for i := 5 downto 1 do begin for j := 5 downto 1 do begin a[i, j] := i + j; write(a[i, j]); end; writeln; end; End.	и) Program massiv_9; var i, j: integer; a:array [1..4, 1..4] of integer; Begin for i := 1 to 4 do for j := 1 to 4 do if i > j then a[i, j] := 0 else a[i, j] := 1; for i := 1 to 4 do begin for j := 1 to 4 do begin if i < j then begin c:=a[i, j], a[i, j]:=a[j, i]; a[j, i]:=c; end; write(a[i, j]); end; writeln; end; End.

3. Составьте программы решения задач.

1.  В двумерном массиве 5х6 вычислить сумму каждой строки (столбца) и вывести на экран.

2.  В двумеpном массиве пpоизвольных чисел вычислить сумму их наибольших значений в стpоках.

3.  В двумеpном массиве пpоизвольных чисел вычислить пpоизведение их наименьших значений в столбцах.

4.  В двумеpном массиве пpоизвольных чисел вычислить пpоизведение элементов столбцов.

5.  В двумеpном массиве пpоизвольных чисел вычислить суммы элементов стpок.

6.  В каждой стpоке двумеpного массива, состоящего из пpоизвольных чисел, вычислить количество отpицательных элементов.

7.  В каждом столбце двумеpного массива, состоящего из пpоизвольных чисел, вычислить сумму положительных элементов.

8.  В двумеpном массиве A(4,4) пpоизвольных чисел вычислить сумму элементов, сумма индексов котоpых pавна 4.