Задать вопрос
13 июля, 10:59

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

+4
Ответы (1)
  1. 13 июля, 11:46
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «5. Дан массив P (n, n). Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали - округлить. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Дан массив P (n, n). Элементы выше главной диагонали заменить на ноль, а ниже главной диагонали - округлить. Помогите найти ошибку! Я написала программу, но он не округляет числа и не все значения округляет до 0. Program lab5; Var P: array [1 ...
Ответы (1)
1. Дан двумерный массив размером 3x5. Вычислить сумму элементов массива 2. Дан массив целых чисел размеров 4 х4. Заменить все элементы главной диагонали на нули. Вывести на экран монитора содержимое массива до обработки и после обработки 3.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Перед вами часть кода программы на языке Pascal. sum:=0; for i:=1 to n do for j:=1 to n do if (i
Ответы (1)
1) Дан массив из n элементов. Найти номер наименьшего элемента массива. 2) Дан массив из n элементов. Упорядочить массив по возрастанию. 3) Дан массив из n элементов. Упорядочить массив по убыванию.
Ответы (1)