Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal С чего начать в изучении турбо паскаля? Люди подскажите с чего начать в изучении турбо паскаля ? Знаю как написать калькулятор и программы решения уравнений разных видов и примеров. А что дальше попробовать незнаю( https://www.cyberforum.ru/ turbo-pascal/ thread656840.html Спроектировать и реализовать программу расчета таблицы соответствий между мерами Turbo Pascal
Уважаемые форумчане, на завтра задали вопросы сделать и программу написать,кто знает ответьте пожалуйста. Вопросы:1. Выражения какого типа можно записывать после служебного слова FOR? 2. Как организовать выполнение нескольких операторов в цикле FOR? 3. Чем отличается действие операторов For_to_do и For_downto_do? 4. Когда завершается выполнение цикла FOR? 5. Можно ли изменять...
Turbo Pascal машинный код https://www.cyberforum.ru/ turbo-pascal/ thread656787.html
Господа, помогите пожалуйста! Нужно написать программу позволяющую переводить двоичные числа в машинный код: прямой, обратный и дополнительный ход.
Turbo Pascal Структуированные типы. Массив записей. Структура: величина, наименование, обозначение, размер https://www.cyberforum.ru/ turbo-pascal/ thread656781.html
Создать список международной системы единиц. 1. Описать и ввести массив, содержащий 10 записей следующей структуры: величина (длина, масса, время и так далее), наименование единицы (метр, килограмм, секунда и так далее), обозначение межународное (m, kg, s и так далее), обозначение русское (м, кг, с и так далее), размер единицы (определён международным соглашением, м*м, кг/(м*м*м) и так далее)....
Turbo Pascal Вычислить значение выражение
\frac{\left|7,2-10x \right|}{\sqrt{\frac{x}{9}+{e}^{2x}}}arctg\frac{4tg2x}{\sqrt{1,1{x}^{3}}} var x: real; begin writeln('Vvedite x'); readln(x); writeln((abs(7.2-10*x))/(3*(sqrt(x/9+exp(2*x))))*(arctn(4*tn(2*x)))/sqrt(1.1*(((sqr x)*x)))); readln; end.
Turbo Pascal Формат вывода, типы данных https://www.cyberforum.ru/ turbo-pascal/ thread656742.html
Turbo Pascal Вычислить значение выражения https://www.cyberforum.ru/ turbo-pascal/ thread656737.html
Функции, отсутствующие в списке стандартных функций языка Turbo Pascal, следует выразить через имеющиеся.
Вычислить количество слов и вывести на печать самую длинную строку Turbo Pascal
для каждой строки текста нужно вычислить количество слов и вывести на печать строку, в которой больше слов. помогите пожалуйста, надо сделать через процедуру, через функцию, и без них.
Turbo Pascal По введенному дню недели определить, рабочий это день или выходной По введенному дню недели определить, рабочий это день или выходной https://www.cyberforum.ru/ turbo-pascal/ thread656728.html Turbo Pascal Ввести с клавиатуры четырехзначное число и определить, есть ли среди цифр этого числа заданная цифра https://www.cyberforum.ru/ turbo-pascal/ thread656727.html
Ввести с клавиатуры четырехзначное число и определить, есть ли среди цифр этого числа заданная цифра.
Определить, принадлежит ли точка с координатами (x, y) заштрихованной фигуре Turbo Pascal
Даны переменные x, y. Выяснить, принадлежит ли точка с координатами (x, y ) заштрихованной фигуре
Turbo Pascal Заменить отрицательные элементы их абсолютными величинами, подсчитать число элементов, равных нулю https://www.cyberforum.ru/ turbo-pascal/ thread656687.html
В заданном массиве Х1, Х2, и т.д заменить значения отрицательных элементов их абсолютными величинами, при этом подсчитать число элементов равных нулю
3451 / 2389 / 2135
Регистрация: 04.12.2011
Сообщений: 3,966
23.09.2012, 23:46 0

Вычислить номер максимального элемента массива, сумму отрицательных элементов - Turbo Pascal - Ответ 3480994

23.09.2012, 23:46. Показов 1610. Ответов 1
Метки (Все метки)

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,max,k,sum: integer;
begin
  randomize;
  write('Введите размер массива n: ');
  readln(n);
  writeln('Массив:');
  a[1]:=random(199)-99;
  max:=a[1]; 
  k:=1; 
  sum:=0;
  write(a[1],' ');
  for i:=2 to n do
  begin
    a[i]:=random(199)-99;
    write(a[i],' ');
    if a[i]>max then
    begin
      max:=a[i];
      k:=i;
    end;
    if a[i]<0 then sum:=sum+a[i];
  end;
  writeln;
  writeln('Максимальный элемент массива: a[',k,'] = ',max);
  writeln('Сумма отрицательных элементов = ',sum);
  readln;
end.


Вернуться к обсуждению:
Вычислить номер максимального элемента массива, сумму отрицательных элементов Turbo Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.09.2012, 23:46
Готовые ответы и решения:

Для каждого массива вычислить: значение максимального элемента, количество отрицательных элементов
Заданы 4 одномерных массива A,B,C,D. Количество элементов каждого массива не превышает 60. Для...

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

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

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

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

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

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

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

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

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