• Задан массив А из n элементов. Заменить в нём каждый элемент полусуммой предыдущего и последующего, если n=0 то заменить на второй, а если последний равен
    0 то заменить на предпоследнее.

Ответы 1

  • program gt;var a,b:array[1..1000]of real;s,n,i:integer;beginreadln(n);for i:=1 to n doread(a[i]);for i:=2 to n-1 dob[i]:=(a[i-1]+a[i+1])/2;if(a[1]=0)then b[1]:=a[2] else b[1]:=b[2]/2;if(a[n]=0)then b[n]:=a[n-1] else b[n]:=b[n-1]/2;for i:=1 to n dowrite(b[i],' ');end.
    • Автор:

      hazelhn4r
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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