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

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

Задать свой вопрос
Виктория
Ты в каком классе?
Юлия Бержель
в 9
Аня Свит
OMG я в 8. Эта очень обычная задачка =)
Вадим Джаловян
ахаха, я незапятнанный гуманитарий) в будущем инфа мне ни к чему)
Злата Доронич
Ну хорошо ;)
1 ответ
Задачка выполнена на языке 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] gt; 0 then w:= w * mas[i];
   End;
  Writeln (mas);
 End;
     
      
     
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт