Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.12.2016, 20:34   #1
Dianam
Новичок
Джуниор
 
Регистрация: 18.12.2016
Сообщений: 1
По умолчанию [Pascal] Сформировать новый одномерный массив, в котором элементы массива, стоящие на позиции кратной трем, будут заменены средним арифметическим значением этих элементов

Элементы одномерного массива T(K) получаются расчетом по формуле T(K)= tg(2K)-Kcos(K), где K - позиция элемента в массиве T(K). Необходимо сформировать новый одномерный массив В(K), в котором элементы массива T(K), стоящие на позиции кратной трем, будут заменены средним арифметическим значением этих элементов.
Заранее спасибо!!!
Dianam вне форума Ответить с цитированием
Старый 25.12.2016, 09:12   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
const k=8;
var t,b:array[1..k] of real;
    i,csr:integer;
    sr:real;
begin
   For i:=1 to k do
   begin
      t[i]:=Tan(2*i)-i*Cos(i);
      Write(t[i]:5:3,'  ');
   end;
   Writeln;
   csr:=0;
   sr:=0;
   For i:=1 to k do
      If i mod 3=0 then
      begin
         sr:=sr+t[i];
         Inc(csr);
      end;
   sr:=sr/csr;
   For i:=1 to k do
   begin
      b[i]:=t[i];
      If i mod 3=0 then
         b[i]:=sr;
      Write(b[i]:5:3,'  ');
   end;
   Writeln;
   Readln;
end.
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сформировать новый массив из элементов массива, значения которых = 0 Liori Общие вопросы C/C++ 2 02.01.2015 17:54
Дан одномерный массив из 30 элементов. Сформировать второй массив, в котором сначала идут все элементы первого массива, кратные 5, Olzhakesh C# (си шарп) 1 29.04.2014 23:49
Из массива удалить элементы кратные трем,стоящие между максимальными и минимальными элементами natatimina Помощь студентам 1 19.04.2014 20:41
Сформировать новый массив, содержащий повторяющиеся элементы массива A. Элементы в новом массиве не повторяются(Pascal) mad_putin Помощь студентам 0 13.12.2012 00:09
Сформировать новый массив,содержащий отрицательные элементы - Задача по PASCAl. Waia Помощь студентам 2 17.12.2008 18:27