Задать вопрос
9 октября, 14:49

Дан массив 10 элементов. Заполнение и вывод при помощи цикла. найти произведение отрицательных элементов

+2
Ответы (1)
  1. 9 октября, 15:24
    0
    Var a:array[1 ... 10] of Integer;

    p, i:integer;

    Begin

    p:=1;

    WriteLn ('Массив');

    For i: = 1 to 10 do

    begin

    a[i]:=Random (20) - 10;

    Write (a[i]:3);

    if a[i]<0 then p:=p*a[i];

    end;

    WriteLn;

    WriteLn ('Произведение отопительных элементов = ', p)

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