Задать вопрос
9 августа, 08:00

Дан массив из 10 целых чисел определите произведение положительных элементов массива

+2
Ответы (1)
  1. 9 августа, 09:35
    0
    Задача выполнена на языке Pascal;

    Var

    i: integer;

    w: real;

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

    Begin

    w: = 1;

    For i:=1 to 10 do

    Begin

    if mas[i] > 0 then w: = w * mas[i];

    End;

    Writeln (mas) ;

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