I,j,m,r:integer;
begin
(* Ввод элементов массива с клавиатуры *)
writeln('Введите размерность матрицы: ');
write(' количество строк ? > ');readln(M);
write(' количество столбцов ? > ');readln(R);
writeln('Введите злементы матрицы:');
for i:=1 to M do
for j:=1 to R do
begin
write(' A[',i,',',j,']= ');readln(a[i,j]);
end;
(* Ввывод элементов массива *)
writeln (' Вывод матрицы в общепринятом виде: ');
for i:=1 to M do begin
for j:=1 to R do
write('',a[i,j]:12:2);
writeln;
end;
end.
Результат выполнения программы
Введите размерность матрицы:
количество строк ? > 3
количество столбцов ? > 3
Введите элементы матрицы:
A[1,1]= 1
A[1,2]= 2
A[1,3]= 3
A[2,1]= 4
A[2,2]= 4
A[2,3]= 5
A[3,1]= 6
A[3,2]= 7
A[3,3]= 2
Вывод матрицы в общепринятом виде:
1.00 2.00 3.00
4.00 4.00 5.00
6.00 7.00 2.00
8.7. Контрольные вопросы
Какими операторами языка задается описание массива?
Каким типом данных может быть задан индекс в описании массива?
Может ли типом индекса массива быть тип INTEGER или REAL?
Как можно описать двумерный массив?
Как можно обратиться к элементам массива?
Как организовать ввод-вывод двумерного массива?
Каковы особенности ввода-вывода символьных массивов?
Могут ли элементами некоторого массива быть числа: 1, 3, 4.47, 5.2, 11?
Сколько элементов содержит массив А, если он описан следующим образом:
A:ARRAY[‘0’..‘9’] OF ARRAY[1..10] OF REAL;
10. Дано описание
CONST
C1=’NOMER’;
VAR
A,B:ARRAY[1..10] OF INTEGER;
S: ARRAY[1..7] OF CHAR;
I,j: integer;
Какие из приведенных ниже операторов ошибочны и почему?
а) S:=’SIGMA= ’; г) B[1]:=ORD(S[3]);
б) S:=C1; д) I:=5; J:=7;
в) A[12]:=0; A[1]:=B[I-J]+2;
8.8. Варианты заданий
Составьте алгоритм и программу вычисления суммы элементов двумерного массива К(4,2).
Запишите программу вычисления произведения элементов одномерного массива С(13).
Составьте программу, определяющую число положительных элементов массива А(9).
Подсчитайте в одномерном массиве А(10) количество элементов делящихся на 3 без остатка.
Вычислите среднее арифметическое элементов главной диагонали массива А(3,3).
Определите координаты максимального по величине элемента главной диагонали массива S(5,5).
В массиве В(4,2) замените числом 5 значения всех элементов, удовлетворяющие условию B(I,J)>5.
Напишите программу вычисления суммы элементов массива G(3,4), значения которых лежат в диапазоне 0<G(I,J)<15.
Найдите сумму элементов, значения которых положительны и четны в одномерном массиве А(15).
Запишите программу, осуществляющую поиск минимального элемента массива G(6) и вычисление величины, обратной значению этого элемента.
Вычислите сумму элементов второго столбца массива В(3,4).
Создайте программу, определяющую значение произведения элементов первой строки массива V(3,4).
В массиве N(4,5) определите количество положительных и отрицательных элементов.
Определите число положительных элементов каждой строки массива C(3,2) и запомните эти значения в массиве А(3).
Найдите и выведите на экран число элементов одномерного массива К(8), остаток деления которых на 3 меньше 0.4.
Составьте программу определяющую сумму элементов массива А(5,5), расположенных над главной диагональю.
Запишите алгоритм и составьте программу, обнуляющую элементы главной диагонали двумерного массива LION(5,5).
В одномерном массиве САТ(15) умножьте каждый элемент массива на соответствующий ему индекс, возведенный в квадрат; полученный массив выведите на экран.
Составьте программу, вычисляющую сумму квадратов не нулевых элементов одномерного массива Z(7).
Составьте программу определяющую сумму элементов массива А(5,5), расположенных под главной диагональю.
Составьте алгоритм и запишите программу, выводящую на экран натуральные логарифмы положительных элементов одномерного массива X1(5), и кубы отрицательных элементов этого массива.
Создайте программу, выводящую на экран таблицу значений функции
,
где xi
– элементы массива X(10),
лежащие в границах 1<=xi<=2.
В одномерном массиве B4(10) найдите четные и отрицательные элементы, и выведите их значения на экран.
Запишите программу, вычисляющую и выводящую на экран таблицу значений функций
,
где
-
элементы массива Х(8) в
диапазоне 2<=
<=3.
Найдите произведение элементов массива В(5,5) расположенных под главной диагональю.
В одномерном массиве А(10) найдите три первых наибольших элемента.
В двумерном массиве Z(5, 5) найдите элементы удовлетворяющие условию (5<Z(I,J)<10), из найденных элементов создать одномерный массив B.
Найти среднее арифметическое и среднее геометрическое элементов массива А(5) и сравнить эти значения между собой.
Получите массив C(3,3) как сумму элементов массивов А(3,3) и В(3,3).