• Дан массив P (n, n). Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали – округлить.
    Помогите найти ошибку! Я написала программу, но он не округляет числа и не все значения округляет до 0.
    Program lab5;
    Var
    P: array [1..10,1..15] of real;
    i, j, n, z: integer;
    Begin
    writeln('Введи n');
    read(n);
    writeln('Введи массив P');
    for i:=1 to n do for j:=1 to n do
    read(P[i,j]);
    z:=0;
    for i:=1 to n do
    begin
    if i if i>j then P[i,j]:=round(P[i,j]);
    end;
    for i:=1 to n do for j:=1 to n do
    writeln ('P[',i,j,']= ',P[i,j]);
    End.

Ответы 0

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years