Вопрос школьника по предмету Информатика
Задать массив из 10 чисел с клавиатуры ,подсчитать произведение положительных элементов массива.
ПОМОГИТЕ,УМОЛЯЮ!!!
Ответ учителя по предмету Информатика
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.
Похожие вопросы от пользователей
……………………..-это упрощёный заменитель реального объекта.Модель является результатом процесса ………………..Модель обладает не всеми, а только некоторыми …………………… ,которые имеет реальный ………………..