5. Дан массив P (n, n). Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали – округлить.
5. Дан массив P (n, n). Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали – округлить.
Гость
Ответ(ы) на вопрос:
Гость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 ij then P[i,j]:=round(P[i,j]);
// далее с массивом можно работать. Например, вывести.
end.
Не нашли ответ?
Похожие вопросы