TURBO PASCAL:Учебное пособие. Терёхин В.В. - 67 стр.

UptoLike

ВУЗ: 

НФИ КемГУ | Новокузнецк

Составители: 

Рубрика: 

67
д) е) ж)
Рисунок 1
Положение этих элементов может быть описано следующими
математическими отношениями:
- на главной диагонали - { M[ i , j ] | i = j}
- выше главной диагонали - { M[ i , j ] | i < j}
- выше главной и выше побочной диагонали –
{ M[ i , j ] | i < j } ∩ { M[ i , j ] | i<n-j+1} и т. д.
Задача:
Матрица n*n вводится с клавиатуры, найти ко-
личество положительных элементов на главной диагонали, за-
менить их нулями и вывести матрицу на экран.
program p21;
const
n = 5;
var
M: array[1.. n, 1.. n] of integer;
i, j, k: integer;
begin
{Ввод элементов матрицы}
for i:= 1 to n do
for j:= 1 to n do
begin
Write('введите M[ ‘ , i, ', ' , j, '] ');
Readln(M[i, j]);
end;
{Поиск и замена. Требуется работать с элементами на
главной диагонали (i = j). Это можно записать так:
for i:= 1 to n do 
       д)                   е)                 ж)
                           Рисунок 1

Положение этих элементов может быть описано следующими
математическими отношениями:
- на главной диагонали - { M[ i , j ] | i = j}
- выше главной диагонали - { M[ i , j ] | i < j}
- выше главной и выше побочной диагонали –
       { M[ i , j ] | i < j } ∩ { M[ i , j ] | i

Страницы