2015-10-22
6986
Составьте программу вычисления суммы элементов двумерного массива A(N,М).
Program matrix_2;
const N=3, M=2;
var i, j, s: integer;
A: Array [1..N,1..M] of Real;
begin
{Ввод элементов}
For i:= 1 To N Do
For j:=1 To M Do Read (A[i,j]);
{Вычисление суммы}
s: = 0;
For i:= 1 To N Do
For j:=1 To M Do s: = s + A [i, i ];
{Вывод ответа на экран}
Write (' Искомая сумма равна', s)
end.
Задание 3. Вычисление суммы элементов двумерного массива, расположенных на главной диагонали
Составьте программу вычисления суммы элементов квадратной матрицы A(N,N), расположенных на главной диагонали.
Здесь следует учесть, что у диагональных элементов квадратной матрицы индексы равны между собой и совпадают с номером строки (столбца), в которой расположен диагональный элемент.
Program matrix_3;
var A: array [ 1.. 10, 1.. 10 ]. of real;
n, i, j: integer;
s: real;
begin
{Ввод элементов массива}
Writeln ('Введите размерность квадратной матрицы'.);
Read(n);
for i: = 1 to n do
for j: = 1 to n do
begin
Write('A[', i, ',', j, ']=');
Readln(a[i,j])
end;
{Вычисление суммы}
s: = 0;
for i: = 1 to n do
s: = s + a [i, i ];
{Вывод ответа на экран}
write (' Сумма диагональных элементов массива равна ', s)
|
|
|
end.
Задание 4. Вычисление суммы элементов двумерного массива, удовлетворяющих некоторым условиям
Составьте программу вычисления суммы положительных элементов двумерного массива А (N,N), расположенных выше главной диагонали.
При решении задачи следует учесть, что для элементов a[ i, j], расположенных выше главной диагонали, значение первого индекса должно быть меньше, чем значение второго индекса, т.е. i<j.
Program matrix_4;
var A: array [ 1.. 10, 1.. 10 ]. of real;
n, i, j: integer;
s: real;
begin
{Ввод элементов массива}
Writeln ('Введите размерность матрицы'.);
Read(n);
for i: = 1 to n do
for j: = 1 to n do
begin
Write('A[', i, ',', j, ']=');
Readln (a[ i, j])
end;
{Вычисление суммы}
s: = 0;
for i: = 1 to n do
for j: = 1 to n do
if (i < j) and (a[ i, j ] > 0) then s:= s + a [ i, j ];
{Вывод результата на экран}
Writeln (' Искомая сумма равна', s)
end.
Задание 5. Вычисление количества элементов двумерного массива, удовлетворяющих некоторым условиям
Составьте программу подсчета элементов двумерного массива А (N, М), меньших заданного числа C.
Program matrix_5;
var A: array [ 1.. 5, 1.. 5 ]. of real;
i, g, n, m, kol: integer;
s, mi: real;
begin
{Ввод элементов массива}
Writeln ('Введите количество строк матрицы');
Read (n);
Writeln ('Введите количество столбцов матрицы');
Read (m);
Writeln ('Введите элементы матрицы');
for i: = 1 to n do
for j: = 1 to m do Read(a[i, j]);
Writeln ('Введите число С');
Read (c);
kol: = 0;
for i: = 1 to n do
for j: = 1 to m do
if a[ i, j ] < c then kol: = kol + 1;
{ kol – количество элементов массива а, меньших числа С}
if kol= 0 then Writeln ('Все элементы >=', c:4)
else Writeln ('Количество элементов <', c, 'равно', кol)
end.
