Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Сформировать целочисленную матрицу по правилу Написать программу на языке программирования Паскаль и алгоритм представить в виде блок-схемы: Сформировать целочисленную матрицу (5х5) следующим образом: 10 20 30 40 50 10 20 30 40 50 10 20 30 40 50 10 20 30 40 50 10 20 30 40 50 https://www.cyberforum.ru/ pascalabc/ thread1480102.html Дан массив целых чисел a : array[1.20] of integer – напишите функцию возвращающую номер минимального элемента Pascal ABC
Есть задача "Дан массив целых чисел a : array of integer – напишите функцию возвращающую номер минимального элемента" С функциями у меня проблема дикая, по самоучителям и другой инфе в интернете накатал программу( ниже она есть), но не пойму как сделать что бы вывод минимального номера был не в функции var a: array of integer; N: integer; min: integer; minind: integer; function...
Pascal ABC Создание анимации движения спутника Мне нужна программа, которая демонстрирует движение спутника вокруг планеты Земля, беспрерывно. Может кто поможет? Сам спутник и планету дорисую, мне главное само движение. https://www.cyberforum.ru/ pascalabc/ thread1479830.html Pascal ABC Выясните, есть ли в данном графе вершина, расстояние от которой до каждой вершины не превышает k https://www.cyberforum.ru/ pascalabc/ thread1479805.html
Помогите написать программу Сама задача: Даны связный неориентированный взвешенный граф и натуральное число k. Выясните, есть ли в данном графе вершина, расстояние от которой до каждой вершины не превышает k. Логически все понятно, а как писать сам код - нет, предварительно не объясняли как работать с этими графами. Помогите пожалуйста, натолкните хотя бы на путь правильный, какой тут...
Перевод из десятичной системы счисления в двоичную Pascal ABC
Написал программу для перевода в 2ю систему счисления,ответ выходит правильным ,но в обратном порядке ,как перевернуть его ? uses crt; var a,b:integer; begin readln(a); b:=a;
Pascal ABC Найти первый положительный элемент главной диагонали в каждом массиве Помогите пожалуйста , со всем не бум-бум с этим Паскалем ! :( Заданы три двумерных массива одинаковой размерности. Организовать ввод и вывод на экран массивов с использованием процедур программиста Найти первый положительный элемент главной диагонали в каждом массиве, используя функцию программиста. В том массиве, где значение первого положительного элемента больше всего, обнулить... https://www.cyberforum.ru/ pascalabc/ thread1479738.html
Pascal ABC В массиве MxN Заменить 1-ю строку и последний столбец В массиве MxN Заменить 1-ю строку и последний столбец Причем,в зависимости от того,чего больше(m<n,n<m) дополнить меньшую строку(столбец) нулевыми элементами. Вот Мои наброски: program Z_1; const https://www.cyberforum.ru/ pascalabc/ thread1479686.html Pascal ABC Найти количество элементов массива, больших или равных K
Дан одномерный целочисленный массив из 50 элементов. Найти количество элементов массива, больших или равных K. Напечатать ответ.
Pascal ABC Найти площадь n-угольника Даны натуральное число n, действительные числа x1,y1,x2,y2,..,xn,yn. Найти площадь n-угольника, вершины которого при некотором последовательном обходе имеют координаты (x1,y1),(x2,y2),..,(xn,yn). Давайте темам нормальные заголовки. "Спасите-помогите" - неподходящее название https://www.cyberforum.ru/ pascalabc/ thread1479402.html Pascal ABC Найти число, зная результат операций с ним в трехзначном числе х зачеркнули его вторую цифру. Когда к образованному при этом двузначному числу слева приписали вторую цифру числа х, то получилось 546. Найти число х. (стандартные процедуры) (с помощью div и mod) https://www.cyberforum.ru/ pascalabc/ thread1479396.html
Напечатать вместимость тех винчестеров, которые стоят больше s рублей Pascal ABC
Известные данные о вместимости (в мегабайтах) и стоимости (в рублях) каждого из 22 типов жестких дисков (винчестеров).Напечатать вместимость тех винчестеров, которые стоят больше s рублей. (через Pascal ABC) (как мне сказали с помощью random)
Pascal ABC Найти суммы положительных и отрицательных элементов каждой строки матрицы отдельно и вывести их на экран Привет, всем. Народ где ошибка у меня в задачи? Сформировать двумерный массив А размером 5*7 с помощью генератора случайных чисел и вывести элементы массива на экран. Найти суммы положительных и отрицательных элементов каждой строки матрицы отдельно и вывести их на экран. const M = 5; N = 7; var a: array of integer; i, j: integer; sum: integer; sc: array of integer; https://www.cyberforum.ru/ pascalabc/ thread1479378.html
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
17.06.2015, 10:59 0

Найти сумму тех чисел, которые больше заданного М - Pascal ABC - Ответ 7772336

17.06.2015, 10:59. Показов 6205. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const n=25;
var x,m,s,i,k:integer;
begin
write('M=');
readln(m);
writeln('Введите ',n,' целых чисел');
k:=0;
for i:=1 to n do
 begin
  readln(x);
  if x>m then
   begin
    k:=1;
    s:=s+x;
   end;
 end;
if k=1 then write('s=',s)
else write('Чисел больше ',m,' нет');
end.


Вернуться к обсуждению:
Найти сумму тех чисел, которые больше заданного М Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.06.2015, 10:59
Готовые ответы и решения:

Найти произведение только тех чисел, которые больше заданного числа m
Составить программу на паскале, содержащую минимум четыре подпрограммы. Дан одномерный массив,...

Найти произведение только тех чисел, которые больше заданного числа
дана последовательность целых положительных чисел. найти произведение только тех чисел, которые...

Массивы: Найти произведение тех чисел, которые больше заданного числа
2. Дана последовательность целых положительных чисел. найти произведение тех чисел, которые больше...

Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти
Даны четыре вещественных числа. Найти сумму тех чисел, которые больше пяти.

2
17.06.2015, 10:59
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
17.06.2015, 10:59
Помогаю со студенческими работами здесь

Определить сумму тех вещественных чисел, которые больше P
Даны натуральное число n и вещественные числа b1, b2,...,bn. Определить сумму тех вещественных...

Найти среднее арифметическое тех элементов массива, которые больше заданного значения Z
Дан массив X(N,M).Найти среднее арифметическое тех элементов массива, которые больше заданного...

Найти сумму тех элементов массива, которые меньше заданного числа D
В массиве чисел А1, А2, …АN найти сумму тех элементов, которые меньше заданного числа D....

Найти сумму тех членов ряда, которые по модулю больше или равны e
Даны числовой ряд и некоторое число e&gt;0. Найти сумму тех членов ряда, которые по модулю больше или...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru