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

  • vasyl_2013
  • vasyl_2013
  • Користувач
  • Поза форумом
  • Звідки: Рідне місто
  • Дата реєстрації: 12.10.2014
  • Повідомлень: 11
    • Репутація: 0

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

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

2 Відповідь від koala

  • koala
  • koala
  • Лінива тваринка
  • Поза форумом
  • Дата реєстрації: 01.05.2013
  • Повідомлень: 15 620
    • Репутація: 13331

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

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

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

koala вебсайт

3 Відповідь від truesupport

  • Звідки: Львів
  • Дата реєстрації: 15.08.2012
  • Повідомлень: 355
    • Репутація: 191

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