• найдите произведение положительных элементов в массиве

Ответы 1

  • VarA:array[1..33] of integer;i:integer;P:real;BeginWrite('Массив: ');P:=1;For i:= 1 to 33 do    Begin    A[i]:=random(21)-10;    Write(A[i],' ');    if A[i]>0 then P:=P*A[i];    End;WriteLn;Write(P)End.
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years