Задать вопрос
23 декабря, 12:19

Одномерный массив 7 элементов заполнить случайным образом числами от 5 до 35. Заменить все элементы массива больше 15 восьмерками, а элементы равные 5 нулями. Вывести на экран монитора первоначальный и преобразованный массивы в столбик.

+1
Ответы (1)
  1. 23 декабря, 13:30
    0
    Const n = 7;

    var A: array [1 ... n] of integer;

    i: integer;

    begin

    writeln ('Начальный вид массива:') ;

    for i : = 1 to n do

    begin

    A[i] : = 5 + random (31) ;

    writeln ('A[', i, ']=', A[i]:3) ;

    end;

    writeln ('Конечный вид массива:') ;

    for i : = 1 to n do

    begin

    if A[i] > 15 then A[i] : = 8;

    if A[i] = 5 then A[i] : = 0;

    writeln ('A[', i, ']=', A[i]:3) ;

    end;

    readln

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Одномерный массив 7 элементов заполнить случайным образом числами от 5 до 35. Заменить все элементы массива больше 15 восьмерками, а ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы