Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 08.11.2012
Сообщений: 9
1

Циклы с параметром: Выдать на печать сумму чисел, больших 100

18.11.2012, 12:29. Просмотров 1240. Ответов 1
Метки нет (Все метки)

Помогите решить задачку)
Ввести 85 значений переменной A. Выдать на печать сумму чисел, больших 100 и сами числа.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.11.2012, 12:29
Ответы с готовыми решениями:

Ввести 100 значений переменной F. Выдать на печать произведение чисел, больших 3
Ввести 100 значений переменной F. Выдать на печать произведение чисел, больших 3 Помогите...

Цикл с параметром. Найти сумму целых отрицательных нечетных чисел, больших -100
Будьте добры ,помогите решить! Найти сумму целых отрицательных нечетных чисел, больших ...

Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3
Найти сумму целых чисел положительных чисел, больших 20, меньших 100 и кратных 3.

Найти сумму целых положительных чисел, больших 50 и меньше 100, кратных трём и оканчивающихся на 5
1. Ввести строку символов. Удалить все слова-палиндромы, имеющие максимальную длину. 2. Даны...

1
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 7,958
Записей в блоге: 1
19.11.2012, 10:46 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Const n=85;
Var A:array[1..n] of integer;
    i,s:integer;
Begin
    For i:=1 to n do
    Begin
      write('A[',i,'] = ');readln(A[i]);
      if A[i]>100 then s:=s+A[i];
    End;
    writeln('Сумма = ',s);
    For i:=1 to n do
     if A[i]>100 then write(A[i],' ');
    readln;
End.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2012, 10:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Ввести массив из 10 целых чисел и выдать на печать сумму этих чисел
Составить программу, которая вводит массив из 10 целых чисел и выдает на печать сумму этих чисел.

Цикл с параметром. Найти сумму положительных кратных 7 чисел, меньших 100
Найти сумму положительных кратных 7 чисел, меньших 100.

Найти сумму нечетных чисел больших 10, но не превышающих 100
Как найти сумму нечетных чисел больших 10, но не превышающих 100?

Вычислить сумму отрицательных четных чисел, больших (-100)
1. Вычислить сумму отрицательных четных чисел, больших (-100). помогите пожалуйста


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

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

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