Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > PascalABC.NET
Войти
Регистрация
Восстановить пароль
Правила Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день  
Другие темы раздела
PascalABC.NET Подсчитать количество одинаковых чисел массива, идущих подряд program qwe; const n=20; var arr: array of integer; i:integer; count:byte; begin randomize; for i:=1 to n do begin https://www.cyberforum.ru/ pascalabc-net/ thread1455164.html PascalABC.NET Определить количество слов, начинающихся с гласных букв в последовательности
Вводится последовательность символов, конец ввода - точка. Определить количество слов начинающихся, с гласных букв в последовательности.
PascalABC.NET Как увеличить размер графического элемента (graphbox) окна? https://www.cyberforum.ru/ pascalabc-net/ thread1454773.html
Очень нужно, просто очень нужно увеличить размер графбокса, сам нашел функцию, возвращающую значение его ширины (1028). А поменять не могу. Помогите, пожалуйста. 		PascalABC.NET Удалить из массива все слова, содержащие не меньше трех четных цифр https://www.cyberforum.ru/ pascalabc-net/ thread1454669.html
Добрый день. Имеется вот такая задача: Дан массив из n слов произвольной длины (длина слова не превышает 80 символов). Элементами слов могут быть любые графические символы. Удалить из массива все...
PascalABC.NET Сделать так, чтобы при изменении размера окна, линии рисовались опять по центру
Нужно сделать так, чтобы при изменении размера окна, линии рисовались опять по центру, а фигуры оставались на своем месте и обновляли свои заливки в соответствии со своим положением относительно... 		PascalABC.NET Создать файл случайных символов типа char и вывести из него все гласные буквы Создать файл случайных символов типа char и вывести из него все гласные буквы. Program qwe; const g: set of char=; var f : file of char; ch : char; i,n : integer; begin https://www.cyberforum.ru/ pascalabc-net/ thread1454256.html
PascalABC.NET Построить множество, состоящее из латинских букв, которые хотя бы раз встречаются во введенной строке https://www.cyberforum.ru/ pascalabc-net/ thread1454253.html
Ввести строку и построить множество, состоящее из латинских букв, которые хотя бы раз встречаются во введенной строке. Вывести это множество. 		PascalABC.NET Рассчитать потенциал электростатического поля во всех точках плоскости
Здравствуйте! помогите с задачей пожалуйста! даны 3 точечных заряда с координатами (x1,y1), (x2,y2), (x3,y3). требуется рассчитать потенциал электростатического поля во всех точках плоскости,...
PascalABC.NET Методом половинного деления найти корни производной функции var a,b,x,e,c: real; function f(x:real):real; begin f:=7.5*(x*x*x*x)-1.2*(x*x*x)-5.1*sqr(x)+3*x-4.36; end; begin a:=-4;b:=0;e:=0.0001; c:=(a+b)/2; while abs(b-a)>e do begin https://www.cyberforum.ru/ pascalabc-net/ thread1454088.html PascalABC.NET Нужно построить блок-схему по программе перевода единиц времени https://www.cyberforum.ru/ pascalabc-net/ thread1454075.html
Еще одна программка. Буду благодарен если поможете построить блок-схему :) program zizn_bol; uses crt; var chas,min,sec,summa:integer; function summ(secvchas,secvmin,sec:integer):longint;...
PascalABC.NET Построить блок-схему по программе определения в массиве положительных и отрицательных чисел
Помогите построить блок-схему. Спасибо. program nnn; uses crt; var n,i,a,pol,otr:integer; begin write('n='); read(n); writeln('Введите ',n,' целых чисел'); pol:=0; 		PascalABC.NET Нужно построить блок-схему по программе транспонирования матрицы Добрый вечер. Помогите пожалуйста построить блок-схему до программе: program mat; var a: array of integer; i,j,n: byte; r: integer; begin randomize; write('размерность: '); https://www.cyberforum.ru/ pascalabc-net/ thread1454050.html
Эксперт Pascal/Delphi
2385 / 1297 / 1492
Регистрация: 29.08.2014
Сообщений: 4,661
03.06.2015, 06:57 0

Найти сумму модулей элементов массива, расположенных после первого отрицательного элемента - PascalABC.NET - Ответ 7721598

03.06.2015, 06:57. Показов 1610. Ответов 3
Метки (Все метки)

Ответ

(Это сообщение перенесено из дублирующей темы)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

var
  a:array of real;
  n,i:integer;
  s:real;
  m:boolean;
begin
  repeat
    write('n=');readln(n);
  until n>0;
  setlength(a,n);
  write('Введите массив:');
  i:=0;s:=0.0;m:=false;
  for n:=0 to n-1 do begin
    read(a[n]);
    if m then s:=s+abs(a[n]);
    if abs(a[n])<abs(a[i]) then i:=n;
    if a[n]<0 then m:=true;
  end;
  writeln('номер минимального по модулю элемента массива:',i+1);
  writeln('сумма модулей элементов массива, расположенных после первого отрицательного элемента:',s);
end.


Вернуться к обсуждению:
Найти сумму модулей элементов массива, расположенных после первого отрицательного элемента PascalABC.NET
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 03.06.2015, 06:57
Готовые ответы и решения:

Вычислить количество и сумму модулей элементов массива, расположенных после первого отрицательного элемента
В одномерном массиве состоящий из n вещественных элементов,(n,&lt;=50) вычислить количество и сумму...

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

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

Найти сумму модулей элементов массива, расположенных после первого элемента, равного нулю
сумму модулей элементов массива, расположенных после первого элемента, равного нулю

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

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

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

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

Определить, сумму элементов массива, расположенных после первого положительного элемента
Дан массив 10 вещественных элементов.Определить, сумму элементов массива, расположенных после...

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