5. Дан массив P (n, n). Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали - округлить.

Question

Информатика

Лизуня

13 июля, 10:59

5. Дан массив P (n, n). Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали - округлить.

+4

Ответы (1)

Знаете ответ?

Калуф · Answer 1

Const n=5;

var

P:array[1 ... n, 1 ... n] of real;

i, j: integer;

begin

Randomize;

for i:=1 to n do

for j:=1 to n do

P[i, j]:=random (1000) ;

for i:=1 to n do

for j:=1 to n do

if i
else if i>j then P[i, j]:=round (P[i, j]) ;

/ / далее с массивом можно работать. Например, вывести.

end.