Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
serg235
1 / 1 / 0
Регистрация: 17.03.2013
Сообщений: 69
#1

Задан массив А размером п. Вычислить среднее арифметическое положительных элементом. Вычислить a1 • a2 + a2 • a3 + + an -1 • an - Turbo Pascal

17.03.2013, 11:47. Просмотров 961. Ответов 2
Метки нет (Все метки)

помогите решить, пожалуйста!
Задан массив А размером n. Вычислить среднее арифметическое положительных элементом. Вычислить a1 * a2 + a2 * a3 + + an -1 * an
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.03.2013, 11:47
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Задан массив А размером п. Вычислить среднее арифметическое положительных элементом. Вычислить a1 • a2 + a2 • a3 + + an -1 • an (Turbo Pascal):

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных компонентов массива - Turbo Pascal
Всем приветик) Извините что так много задачек, но поймите сложновато мне с программированием(( за конфетку ;) 1)Задан массив...

Задан одномерный массив а[1..n]. Вычислить сумму элементов, расположенных между первым отрицательным элементом и максимальным элементом массива. - Pascal
Задан одномерный массив а. Вычислить сумму элементов, расположенных между первым отрицательным элементом и максимальным элементом массива....

Вычислить среднее арифметическое положительных и среднее арифметическое отрицательных чисел - Turbo Pascal
Дана последовательность, состоящая из n вещественных чисел. Вычислить среднее арифметическое положительных и среднее арифметическое...

Задан целочисленный массив B(n), n<=100. определить среднее арифметическое положительных и отрицательных элементов массива - Pascal
помогите пожалуйста, а то одномерные как то не идут у меня =)

Задан двумерный массив размером M на N. Вычислить y=(c+x)/x - Pascal
Вычислить y=(c+x)/x где с- количество элементов кратных 2 , х - количество элементов кратных 3.

Задан двумерный массив размером M на N. Вычислить y = с / x - Pascal
Задан двумерный массив размером M на N. Вычислить y=с/x , где с - количество элементов кратных 4, а х - количество элементов кратных 5.

2
Gidroboom
27 / 27 / 6
Регистрация: 13.02.2013
Сообщений: 66
Записей в блоге: 1
17.03.2013, 11:55 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
const n=20;
var a:array [1..n] of integer;
    s:real;
    i,j:integer;    
   begin
    randomize;
    for i:=1 to n do
      a[i]:=random(20)-10;
      for i:=1 to n do
      write(a[i]:4);      
    for i:=1 to n do
      if a[i]>0 then 
        begin
          s:=s+a[i];
          inc(j);
          end;       
     s:=s/j;
     writeln;
     write('Среднее арифметическое= 's);
     readln;
     end.
1
serg235
1 / 1 / 0
Регистрация: 17.03.2013
Сообщений: 69
17.03.2013, 12:20  [ТС] #3
Спасибо большое!

 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.03.2013, 12:20
Привет! Вот еще темы с ответами:

Для матрицы размером m x n вычислить среднее арифметическое каждой строки - Turbo Pascal
Для матрицы размером m x n вычислить среднее арифметическое каждой строки.

Вычислить среднее арифметическое положительных элементов - Turbo Pascal
Вычислить среднее арифметическое положительных элементов для массивов A(N1), B(N2), C(N3). N1&lt;=100, N2&lt;=100, N3&lt;=100. проверить...

Вычислить среднее арифметическое всех положительных чисел - Turbo Pascal
Дано целое число N и набор целых чисел: A 1 , A 2 , …, A N . Вычислить среднее арифметическое всех положительных чисел.

Вычислить среднее арифметическое положительных элементов матрицы. - Turbo Pascal
Вычислить среднее арифметическое положительных элементов матрицы. Последнее задание осталось, помогите...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru