Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
burned
0 / 0 / 0
Регистрация: 06.06.2013
Сообщений: 2
1

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

09.06.2013, 21:02. Просмотров 700. Ответов 3
Метки нет (Все метки)

Задание: "Вычислить сумму элементов массива, расположенных между первым и вторым отрицательными элементами."
Доброго времени суток. Помогите пожалуйста разобраться в коде

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
var
a:array[1..100] of integer;
i,d,n,p1,p2,sum:integer;
 
begin
write('Введите количество элементов: ');
readln(n);
 
d:=0;
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i]:3);
if a[i]<0 then
begin
d:=d+1;
if d=1 then p1:=i;
if d=2 then p2:=i;
end;
end;
writeln;
 
sum:=0;
for i:=1 to n do
begin
if (i>p1) and (i<p2) then
sum:=sum+a[i];
end;
 
writeln('Сумма= ',sum);
 
end.
А именно в этом куске кода
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
d:=0;
for i:=1 to n do
begin
a[i]:=random(20)-10;
write(a[i]:3);
if a[i]<0 then
begin
d:=d+1;
if d=1 then p1:=i;
if d=2 then p2:=i;
end;
end;
writeln;
Уже долгое время стараюсь сам разобраться! увы, безуспешно!
Если можно, разъясните каждую переменную, и что от чего. Как можно подробней

P.S Админы, Модеры и всё начальство этого форума, не удаляйте тему плиз, знаю, что есть похожая тема, но там нет разъяснения! Дайте получить хоть пару дельных ответов, потом удалять или нет, дело ваше) Заранее спасибоооо )
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.06.2013, 21:02
Ответы с готовыми решениями:

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

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

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

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

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

3
SunEclipse
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
10.06.2013, 00:15 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
d:=0;
for i:=1 to n do
begin
a[i]:=random(20)-10;//заполнение массива рандомными числами [10;-10]
write(a[i]:3);//выводим
if a[i]<0 then //если значение массива меньше нуля, то
begin
d:=d+1;//инкриментируем d
if d=1 then p1:=i;//если найдено число меньше нуля, то d увеличится на единицу и в переменную p1 заносится значение индекса элемента массива, который первый и меньше нуля 
if d=2 then p2:=i; //со вторым тоже самое, только заносится значение второго отрицательного элемента
end;
end;
writeln;
1
burned
0 / 0 / 0
Регистрация: 06.06.2013
Сообщений: 2
10.06.2013, 00:34 3
Всё внятно объяснил! Большое спасибо ) Последний вопрос: Для чего это

Pascal
1
2
3
d:=d+1;
if d=1 then p1:=i; 
if d=2 then p2:=i;
без этого не как ?
0
SunEclipse
232 / 181 / 104
Регистрация: 19.03.2010
Сообщений: 949
10.06.2013, 02:12 4
burned, для того, чтобы обозначить именно первый и второй отрицательные элементы.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2013, 02:12

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

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

Найти произведение элементов массива, расположенных между первым и вторым нулевыми элементами
Помогите пожалуйста, до завтра надо сдать 5 лабораторок, 3 я сделал, но вот эти две вообще без...


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

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

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