Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива.
ПОМОГИТЕ,УМОЛЯЮ!!!

Ответы (1)

Индулис 19.11.2024 3
Uses Crt;
Const
   N = 10;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
ClrScr;
P:=1;
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i] > 0 then P:=P*A[i];
    End;
Write('P = ',P);
ReadLn;
End.

Знаете правильный ответ?

Думаешь ответы не верны?

Найди верный ответ на вопрос по предмету Информатика, если вы не получили ответа или никто не дал верного ответа, то рекомендуется воспользоваться поиском и попытаться найти ответ на свой вопрос среди похожих запросов.

Воспользуйтесь поиском

Новые вопросы по предмету Информатика:

ПРЕДМЕТЫ

Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива. ПОМОГИТЕ,УМОЛЯЮ!!!

Думаешь ответы не верны?

Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива.
ПОМОГИТЕ,УМОЛЯЮ!!!