30 апреля, 15:35

Заполнить линейный массив из 10 элементов случайными числами от - 40 до 40. Найти максимальный элемент массива. Pascal ABC

+1
Ответы (1)
  1. 30 апреля, 17:05
    0
    Var

    a: array [1 ... 10] of integer;

    i: byte;

    max: integer;

    begin

    randomize;

    max : = - 100;

    for i : = 1 to 10 do

    begin

    a[i] : = random (81) - 40;

    if a[i] > max then max : = a[i];

    write (a[i], ' ') ;

    end;

    writeln (#13+'Максимальный элемент = ', max) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Заполнить линейный массив из 10 элементов случайными числами от - 40 до 40. Найти максимальный элемент массива. Pascal ABC ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Новые вопросы по информатике
Здравствуйте! мне нужно делать проект по технологии помогите мне объяснить что такое "обоснование возникшей проблемы и актуальность проекта" и как это записать
Ответы (1)
Напишите программу для решения задачи: задано трехзначное положительное число. есть ли среди цифр числа цифра 7? если есть, на каком месте стоит? паскаль
Ответы (1)
Задание по информатике: объясните первокласснику что такое монитор, как и где его найти. Его отличительные черты и признаки.
Ответы (1)
USB флеш-накопитель имеет объём 4 Гбайт. Рукопись автора содержит 2048 страниц. На каждой странице 512 строк, в каждой строке 256 символов. Каждый символ кодируется 16 битами. Кроме того, рукопись содержит 920 картинок объёмом 4 Мбайт каждая.
Ответы (1)
1. Задайте перечислением элементов множество, заданное характеристическим свойством P = ∈ N, - 4 < x < 6 2. Определите, по каком закону составлено бесконечное множество содержащие числа {3/7; 5/11; 7/15; 9/19}
Ответы (1)