1 Востаннє редагувалося Torbins (13.10.2014 09:31:50)

Тема: Обчислити середнє арифметичне масиву та побудувати другий

Задача
Задано масив дійсних чисел A(n), n <= 200. Розробити програму, яка будує масив B(n) за
правилом: b[ і ] є середнім арифметичним значенням чисел a[1] ,a[2] ,... ,a[n], крім a[ і ] , i =1,2,...,n.
ДОПОМОЖІТЬ!!!!!!

2

Re: Обчислити середнє арифметичне масиву та побудувати другий

Допомагаю прочитати правила:
http://s018.сайт-злодій/i504/1305/4e/128b3beefcef.jpg

Подякували: Torbins1

3

Re: Обчислити середнє арифметичне масиву та побудувати другий

а цей масив що вийшов він якось називається бо просто я щось подібне здається на якійсь математиці вчив але я можу помилятись

"халява"
Program HelloWorld(output);
const 
    size = 200;
type
    TArray = array[1..size] of real;
var
    a,b    : TArray;
    i, sum : integer;
    
begin
    writeln('a array');
  for i:=1 to size do
  begin
    a[i] := random(100);
    write(a[i]:10:2, ' ');
    sum  := round(sum + a[i]);
    if i mod 10 = 0 then
            writeln();
        
    end;
    
    writeln();
    writeln('average = ', (sum / size):10:2);
    writeln();
    writeln('b array');
    for i:= 1 to size do
    begin
        b[i] := (sum - a[i]) / (size - 1);
        write(b[i]:10:2, ' ');
        if i mod 10 = 0 then
            writeln();
        end;
end.
Подякували: Torbins, vasyl_20132