В одномерном массиве состоящем из 10 целых частей в промежутке от

В одномерном массиве состоящем из 10 целых элементов в интервале от -20 до 20 вычислить творение положительных частей

Задать свой вопрос
Говердовская Эльвира
на паскале?
1 ответ
Const
N = 10;

type
Tmas = array [1..N] of longint;

var
m: Tmas;
i, proiz: longint;
begin
proiz := 1;
for i := 1 to N do
begin
readln(m[i]);
if m[i]gt;0 then
proiz:=proiz*m[i];
end;
writeln(proiz);
end.



пж как наихороший
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт