Задать вопрос
11 ноября, 12:00

Создать одномерный массив целых случайных чисел в интервале от - 10 до 25 в количестве из 30 элементов. Распечатать данный массив, вычислить сумму положительных элементов 2 и 3 массива.

+3
Ответы (1)
  1. 11 ноября, 13:53
    0
    Не понятно что значит " 2 и 3 массива ", остальное сделанно

    var

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

    i, n, sum: integer;

    begin

    n : = 30;

    writeln ('Данные массива:');

    for i : = 1 to n do

    begin

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

    write (a[i], ' ');

    end;

    writeln ();

    sum : = 0;

    for i : = 1 to n do

    if a[i] > 0 then

    sum : = sum + a[i];

    writeln ('sum = ', sum);

    end.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «Создать одномерный массив целых случайных чисел в интервале от - 10 до 25 в количестве из 30 элементов. Распечатать данный массив, ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы