Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Дмтрий
0 / 0 / 0
Регистрация: 24.06.2015
Сообщений: 22
1

Вычислить сумму элементов массива, удовлетворяющих условию

17.11.2015, 12:37. Просмотров 778. Ответов 1
Метки нет (Все метки)

Для целочисленного массива A(N) вычислить сумму тех элементов, которые удовлетворяют
условию |ai| < i^2
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.11.2015, 12:37
Ответы с готовыми решениями:

Вычислить сумму элементов файла, удовлетворяющих условию
Ввести с клавиатуры целое число. 1. Если число находится в интервале от 1 до 10, то посчитать...

Вычислить сумму всех элементов матрицы, удовлетворяющих условию
Задача 3 Дана матрица: A=\left| \begin{array}{rrr}2.8 &amp; 3.6&amp; -1.7\\ 0.28 &amp; 3.12 &amp; 1.4\\...

Вычислить среднее геометрическое элементов массива, удовлетворяющих условию
Вычислить среднее геометрическое элементов массива {{q}_{1},{q}_{2},...,{q}_{12} }удовлетворяющих...

Вычислить средне геометрическое (арифметическое) элементов массива, удовлетворяющих условию A(I)>B
вычислить средне геометрическое (арифметическое) элементов массива, удовлетворяющих условию A(I)&gt;B,...

Определить количество и сумму квадратов элементов 3 строки массива, удовлетворяющих условию
Здравствуйте гуру программирования,мне очень нужна ваша помощь,я проболела месяц и тут мне...

1
CodeR
Фрилансер
3381 / 2782 / 3000
Регистрация: 08.02.2012
Сообщений: 6,721
Записей в блоге: 1
17.11.2015, 14:24 2
Лучший ответ Сообщение было отмечено Дмтрий как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Const nmax=100;
Var A:array[1..nmax] of integer;
    i,s,n:integer;
Begin
    Repeat
     write('N: ');
     readln(n);
    Until (n>0)and(n<=nmax);
    s:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(n);
      write(A[i],' ');
      if abs(a[i]) < i*i then s:=s+a[i];
    End;
    writeln;
    writeln('Сумма = ',s);
    readln;
End.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2015, 14:24

Вычислить средне геометрическое (арифметическое) элементов массива, удовлетворяющих условию A(I)>B, где В-константа.
Помогите пожалуйста решить задачку. Ничего не понимаю в Паскале. Сама задача: Вычислить средне...

Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 3
Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2...

Найти сумму всех элементов массива целых чисел, удовлетворяющих условию: остаток от деления на 2 равен 3
Помогите найти решения..... 240.Найти сумму всех элементов массива целых чисел, удовлетворяющих...


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

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

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