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

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

+4
Ответы (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 восьмерками, а ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Одномерный массив из 7 элементов заполнить случайным образом числами от 5 до 9. Заменить все элементы массива равные 7 единицами. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Ответы (1)
Одномерный массив из 6 элементов с номерами от 4 до 9 заполнить случайным образом числами от 1 до 10. Все элементы массива, значения которых меньше 5, уменьшить на единицу. Вывести на экран монитора первоначальный и преобразованный массивы в строчку.
Ответы (1)
1) Заполнить массив размером N целыми числами последовательно от 1 до N. Вывести его на экран. Найти сумму элементов массива и вывести ее на экран. 2) Заполнить массив размером N целыми числами последовательно от N до 1. Вывести его на экран.
Ответы (1)
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
Во имя радостных мессий, помогите хоть одну задачку. Не шарю ( Дан массив из 15 элементов. Необходимо заполнить его с помощью оператора присваивания (случайными числами), вывести все элементы в строку, а затем вывести произведение всех элементов
Ответы (1)