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

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

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

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

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

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

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

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

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

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

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,650
Записей в блоге: 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
Привет! Вот еще темы с решениями:

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

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

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

Найти сумму кубов всех отрицательных элементов массива A={a[i]}, удовлетворяющих условию a[i]>=c*d. Использовать динамическое выделение памяти.
1. Найти сумму кубов всех отрицательных элементов массива A={a},...


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

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

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