Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Поиск наибольшего (наименьшего) из двух целых чисел без использования условного оператора https://www.cyberforum.ru/ turbo-pascal/ thread982657.html 1. поиск наибольшего (наименьшего) из двух целых чисел БЕЗ ИСПЛЬЗВАНИЯ УСЛОВНОГО ОПЕРАТОРА 2.нахождение НОД к(к>2) натуральных чисел; 3.нахождение НОК к(к>2) натуральных чисел; 4.Определение цифр...	Turbo Pascal Проверить истинность высказывания Здравствуйте ув.форумчане. Прошу помочь мне с написанием программы на Турбо Паскале. Само задание: Проверить истинность высказывания: "Среди трех целых переменных x,y,z имеется не более двух...
Turbo Pascal Поиск расстояния между точками https://www.cyberforum.ru/ turbo-pascal/ thread982625.html Задачка такая: Попросить пользователя ввести X и Y, загрузить из файла другие координаты. Выбрать и вывести из файла наиболее ближайшую координату, к введенной. Я сделал программу, но она иногда...	Turbo Pascal Найти длины трех медиан. Используя функции длины и процедуру средины https://www.cyberforum.ru/ turbo-pascal/ thread982617.html Найти длины трех медиан. Используя функции длины и процедуру средины. спасибо...
В заданной строке найти те слова, которые содержат хотя бы одну букву ‘м’ и вывести их в столбик Turbo Pascal В заданной строке найти те слова, которые содержат хотя бы одну букву ‘м’ и вывести их в столбик	Turbo Pascal Определить, кратна ли сумма цифр числа Б числу А Дано трехзначное число. Определить: Б) кратна ли сумма его цифр числу А.Помогите плиз!Заранее благодарю! https://www.cyberforum.ru/ turbo-pascal/ thread982586.html
Turbo Pascal Последовательность из N вещественных чисел вводится с клавиатуры 1)Последовательность из N вещественных чисел вводится с клавиатуры.. Верно ли, что самое большое число стоит на последнем месте, а самое маленькое - на первом? 2)С клавиатуры в строчку вводится... https://www.cyberforum.ru/ turbo-pascal/ thread982524.html	Turbo Pascal Дано четырехзначное число. Определить входит ли в него цифра b Дано четырехзначное число. Определить входит ли в него цифра b.Помогите решить плиз.Заранее благодарю!
Turbo Pascal Составить программу, которая по номеру дня недели печатает расписание занятий для вашей группы Составить программу, которая по номеру дня недели печатает расписание занятий для вашей группы. Вот мой вариант: program case1; Procedure Case2(a:integer); begin Writeln ('Ведите число дня... https://www.cyberforum.ru/ turbo-pascal/ thread982514.html	Turbo Pascal Найти количество элементов, расположенных выше главной диагонали матрицы https://www.cyberforum.ru/ turbo-pascal/ thread982487.html Нужна помощь Задан двухмерный массив целых чисел А размером М на N. Найти количество элементов, расположенных выше главной диагонали.
Найти количество трехзначных натуральных чисел,сума цифр которых ровняется заданному числу N Turbo Pascal Найти количество трехзначных натуральных чисел,сума цифр которых ровняется заданному числу N используя при этом циклы: 1)repeat...until 2)while ... do	Turbo Pascal Вывести все пары совпадающих одинаковых символов последовательности https://www.cyberforum.ru/ turbo-pascal/ thread982457.html Для заданной последовательности символов: выдать все пары совпадающих одинаковых символов

Kodzaev

3030 / 1916 / 1649

Регистрация: 30.04.2011

Сообщений: 3,060

20.10.2013, 20:32

Вычислить сумму модулей элементов массива, расположенных после минимального элемента - Turbo Pascal - Ответ 5210388

20.10.2013, 20:32. Показов 1131. Ответов 1

Метки (Все метки)

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

Решение

Считает сумму модулей элементов, расположенных после первого минимального:

Pascal

var
  x: array [1..100] of integer;
  i, n, min, imin, s: integer;
 
begin
  Write('Введите размер массива: ');
  Readln(n);
  min := MAXINT;
  Randomize;
  for i := 1 to n do
  begin
    x[i] := Random(101) - 50;
    Write(x[i], #32);
    if x[i] < min then
    begin
      min := x[i];
      imin := i;
    end;
  end;
  Writeln;
  for i := n downto imin + 1 do
    s := s + Abs(x[i]);
  Writeln('Сумма = ', s);
  Readln
end.

Если нужно после последнего минимального элемента, то заменить 14 строчку на эту:

Pascal

1	if x[i] <= min then

Вернуться к обсуждению:
Вычислить сумму модулей элементов массива, расположенных после минимального элемента Turbo Pascal

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

20.10.2013, 20:32

Готовые ответы и решения:

Вычислить сумму модулей элементов массива, расположенных после минимального элемента
1.Вычислить сумму модулей элементов массива К размером n, расположенных после минимального...

Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элемента
2) Вычислить сумму модулей элементов массива К размером n, расположенных после минимального элем

В одномерном массиве вычислить сумму модулей элементов массива, расположенных после минимального по модулю элемента
В одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. Количество...

Вычислить сумму модулей элементов массива, расположенных после первого элемента
Сделал через массив, требуют через функцию. В одномерном массиве, состоящем из n целочисленных...

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

20.10.2013, 20:32

Помогаю со студенческими работами здесь

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

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

Сумма модулей элементов массива расположенных после минимального по модулю элемента
Помогите с задачками плизз. Нехочу всё лето с долгами разбираться. Выручите пожалусто. 1). В...

Найти сумму элементов массива, расположенных после минимального элемента
В одномерном массиве, состоящем из n вещественных элементов вычислить: 1. количество элементов,...

Наверх