Задать вопрос
7 января, 19:16

Решить в паскале. Задан массив А (1:20). Найти произведение всех его ненулевых элементов.

+1
Ответы (1)
  1. 7 января, 19:33
    0
    Program t1;

    const

    n=20

    var

    i, x, s : integer;

    t: string;

    m1: array [1 ... n] of integer;

    begin

    s : = 1;

    for i : = 1 to n do

    begin

    x : = m1[i];

    if (x 0) then s : = s * x;

    end;

    writeln ('Ответ ', s) ;

    end;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Решить в паскале. Задан массив А (1:20). Найти произведение всех его ненулевых элементов. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы