Задать вопрос
28 мая, 16:14

Помогите написать программу в turbo Pascal. Напишите программу Генератором случайных чисел генерируется последовательность 50-ти случайных чисел из диапазона [-10; 20]. Вычислить сумму положительных элементов последовательности, порядковые номера которых нечетны.

+4
Ответы (1)
  1. 28 мая, 17:57
    0
    Var a : array[1 ... 50] of integer;

    sum, i : integer;

    begin

    randomize;

    for i : = 1 to 50 do begin

    a[i] : = random (31) - 10;

    if (a[i] > 0) and (i mod 2 0) then

    sum : = sum + a[i];

    end;

    write (sum)

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Помогите написать программу в turbo Pascal. Напишите программу Генератором случайных чисел генерируется последовательность 50-ти случайных ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы