• Составить программу.
    Дан массив,состоящий из 5 элементов А(5).(значение элемента меньше 10).Найти произведение элементов данного массива

Ответы 1

  • Var  m : array[1..5] of Byte;  i : Byte;  R : Longint;Begin  R:=1;  For i:=1 to 5 do  Begin    Readln(m[i]);   R:=R*m[i];  end;  Writeln('Произведение = ',R);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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