• Что не так с этой программой ?
    program pr;
    var i, p: integer;
    a: array [1..5] of integer;
    begin
    for i:=1 to 5 do read (a[i]);
    begin
    p:=0;
    for i:= 1 to 5 do
    p:=p*a[i];
    begin
    write (p,' ');
    end;
    end;
    end.
    Заданием было найти сумму пяти элементов массива

Ответы 3

  • program pr;var i, p: integer;a: array [1..5] of integer;beginfor i:=1 to 5 do read (a[i]);p:=0;for i:= 1 to 5 do p:=p+a[i];write (p,' ');end.
  • так красивее)
  • program pr;var i, p: integer;a: array [1..5] of integer;beginfor i:=1 to 5 do read (a[i]);p:=0;for i:= 1 to 5 do p:=p+a[i]; //в это строчке была ошибка. ты постоянно умножала на нольwrite (p);end.
  • Добавить свой ответ

Войти через Google

или

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

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

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