Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
ччч
0 / 0 / 3
Регистрация: 23.12.2012
Сообщений: 49
#1

Найти разницу - Pascal ABC

05.03.2013, 12:26. Просмотров 261. Ответов 1
Метки нет (Все метки)

Найти разницу между модулями сумм всех положительных и всех отрицательных элементов в массиве.

Добавлено через 2 часа 36 минут
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
32
33
34
35
36
37
38
39
40
program ex;
const m=20;
type TArray=array[1..m] of integer;
procedure RandomArray(var a:TArray; var n:integer);
var i:integer;
begin write ('введите кол-во эл-тов в массиве >');
      readln(n);
      randomize;
      for i:=1 to n do
          a[i]:=random(21)-10
end;
procedure printArray(a:TArray; n:integer);
var i:integer;
begin write('массив >');
      for i:=1 to n do write(a[i]:3);
      writeln;
end;
procedure necArray(var a:TArray; n:integer);
var i,pol,otr,sum1,sum2,s:integer; sr:real;
begin
for i:=1 to n do
  begin
  if abs(a[i])>0 then
  pol:=a[i];
  if abs(a[i])<0 then
  otr:=a[i];
  end;
  sum1:=s+pol;
  sum2:=s=otr;
end;
var
  n:integer;
  a:TArray;
begin
RandomArray(a,n);
PrintArray(a,n);
necArray(a,n);
PrintArray(a,n);
readln;
end.
не знаю как правильно
http://www.cyberforum.ru/pascalabc/thread822614.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.03.2013, 12:26
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Найти разницу (Pascal ABC):

Найти разницу в росте между высоким и низким футболистом команды
помогите пожалуйста решить задачу:cry: Найти разницу в росте между высоким и...

Найти разницу между максимальной и минимальной цифрами числа 509
Помогите пожалуйста найти разницу между максимальной и минимальной цифрами...

Найти и напечатать наибольшую разницу по модулю между двумя соседними числами
Дано натуральное число N, за ним последовательность из N действительных чисел....

Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из них
Дано 20 вещественных чисел. Найти разницу между минимальным и максимальным из...

Найти разницу между глубинами левого и правого поддеревьев, относительно корня дерева
//Определить является ли дерево АВЛ-деревом, если не является, то определить...

1
Puporev
Модератор
54134 / 41767 / 28876
Регистрация: 18.05.2008
Сообщений: 98,305
05.03.2013, 14:18 #2
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
32
33
34
35
36
37
38
39
40
41
42
program ex;
uses crt;
const m=20;
type TArray=array[1..m] of integer;
procedure RandomArray(var a:TArray; var n:integer);
var i:integer;
begin
randomize;
write ('введите кол-во эл-тов в массиве >');
read(n);
for i:=1 to n do
a[i]:=random(21)-10
end;
procedure printArray(a:TArray; n:integer);
var i:integer;
begin
writeln('массив >');
for i:=1 to n do
write(a[i]:4);
writeln
end;
procedure necArray(a:TArray; n:integer);
var i,pol,otr,sum1,sum2,s:integer; sr:real;
begin
pol:=0;
otr:=0;
for i:=1 to n do
 begin
  if a[i]>0 then pol:=pol+a[i];
  if a[i]<0 then otr:=otr+a[i];
 end;
writeln('Сумма положительных=',pol,' модуль суммы отрицательных=',abs(otr));
write('Их разность=',abs(pol-abs(otr)))
end;
var
  n:integer;
  a:TArray;
begin
RandomArray(a,n);
PrintArray(a,n);
necArray(a,n);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.03.2013, 14:18
Привет! Вот еще темы с решениями:

Найти разницу между суммами квадратов четных и нечетных элементов одномерного массива
Найти разницу между суммами квадратов четных и нечетных элементов одномерного...

Pascal ABC. Последовательно вводятся 10 целых чисел. Найти разницу между наибольшим и наименьшим из них
Последовательно вводятся 10 целых чисел. Найти разницу между наибольшим и...

Найти разницу двух комплексных чисел
Помогите пожалуйста! Задано две записи Z1 и Z2, причем поле Re каждого из...

Найти разницу между максимальным и минимальным
Дано 12 целых чисел в диапазоне -32000..+32000. Найти разницу между...


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

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

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