Программа формирования из вектора - Turbo Pascal

Формулировка задачи:

Задание собственно такое: Составить программу формирования из вектора A={ai}, i=1/3n вектора B={bi}, i=1/n, очередная компонента которого равна среднему арифметическому очередной тройки компонент вектора. вот сама программа:
program Roma;
uses crt; 
var  i, n :integer;
     a, b :array[1..10] of real;
begin
  writeln('vvedite n'); readln (n);
  writeln('vvedite a[i]'); 
  for i:= 1 to n do
    read(a[i]);
    writeln;
  i:= 1;
    while i < n do
      begin    
        b[i]:=(a[i]+a[i+1]+a[i+2])/3;
        i:= i+3;
        write(b[i]);
      end;
    writeln('Массив B');
      for i:= 1 to n do
      writeln(b[i]:6:2);
      readln
End.
Собственно проблема у меня в ответе , вернее в нулях между средними арифметическими, помогите исправить, очень прошу, нужно избавится от этих лишних нулей, что только не перепробывал, может вы знаете в чем ошибка!


textual

Код к задаче: «Программа формирования из вектора - Turbo Pascal»

program Roma;
 
uses crt; 
var
  k, i, n: integer;
  a, b: array[1..100] of real;
 
begin
  writeln('vvedite n');
  readln(n);
  writeln('vvedite a[i]'); 
  for i := 1 to n do
    read(a[i]);
  writeln;
  i := 1;
  k := 1;
  while i < n do
  begin
    b[k] := (a[i] + a[i + 1] + a[i + 2]) / 3;
    i := i + 3;
    inc(k);
  end;
  writeln('Массив B');
  for i := 1 to k - 1 do
    writeln(b[i]:6:2);
  readln;
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

8   голосов, оценка 4.375 из 5

Источник
Похожие ответы