вычислить сумму элементов массива до первого отрицательного

@blondino4ka · Регистрация: 16.12.2009

Студворк — интернет-сервис помощи студентам

пожалуйста можете ещё вычислить сумму элементов массива до первого отрицательного элемента;
и изменить порядок следования элементов массива на обратный

@C71Me · 16.12.2009, 23:39

1)

Delphi
1
2
3
4
5
6
7
Summ:=0;
i:=1;
while (a[i]>0) or (i<>10) do
begin
Summ:=Summ+a[i];
i:=i+1;
end;

2)

Delphi
1
2
3
For i:=-10 to 10 do
 For j:=-10 downto 10 do
 a[j]:=a[i];

@blondino4ka · 17.12.2009, 18:08 **[ТС]**

C71Me, простите занаглость! а можно по подробней!

@C71Me · 18.12.2009, 19:14

Ну как ещё подробнее?)
в первой задаче Summ,i:integer;
во второй i,j:integer;
а далее стандартные операторы begin и end

@blondino4ka · 18.12.2009, 21:24 **[ТС]**

ВЦ!
мне надо сразу в одномерном массиве, вычислить:
1) максимальный элемент массива;
2) сумму элементов массива, расположенных до последнего положительного элемента.
и изменить порядок следования элементов массива на обратный.

@Тамила · 18.12.2009, 21:39

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
uses crt;
var
a:array[1..100]of integer;
i,max,pos,n,sum:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
writeln('max=',max);
for i:=1 to n do
if a[i]>0 then pos:=i;
sum:=0;
for i:=1 to pos do
sum:=sum+a[i];
writeln('summa=',sum);
writeln;
writeln('v obratnom poryadke:');
for i:=n downto 1 do
write(a[i],'  ');
readkey;
end.

@blondino4ka · 19.12.2009, 14:51 **[ТС]**

Тамила, как я понимаю в 19 строчке задаётся до последнего положительного элемента, если изменить её на
if a[i]<0 then pos:=i; будет уже до первого отрицательного!

@Тамила · 19.12.2009, 14:55

Сообщение от blondino4ka

будет уже до первого отрицательного!

нет, будет до последнего отрицательного.
цикл нужно изменить, чтоб было до первого.

@blondino4ka · 19.12.2009, 15:57 **[ТС]**

Сообщение от C71Me

Summ:=0;
i:=1;
while (a[i]>0) or (i<>10) do
begin
Summ:=Summ+a[i];
i:=i+1;
end;

цикл с предусловием не работает! всё суммирует!
с параметром тоже можно?

@Тамила · 19.12.2009, 16:09

blondino4ka, что за задание? Вам что нужно?

@blondino4ka · 19.12.2009, 16:18 **[ТС]**

всё тоже самое тока
вычислить:
1) максимальный элемент массива;
2) сумму элементов массива, расположенных до первого отрицательного элемента.
и изменить порядок следования элементов массива на обратный.

@Тамила · 19.12.2009, 16:23

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
uses crt;
var
a:array[1..100]of integer;
i,max,pos,n,sum:integer;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
max:=a[1];
for i:=1 to n do
if a[i]>max then max:=a[i];
writeln('max=',max);
for i:=n downto 1 do
if a[i]<0 then pos:=i;
sum:=0;
for i:=1 to pos-1 do
sum:=sum+a[i];
writeln('summa=',sum);
writeln;
writeln('v obratnom poryadke:');
for i:=n downto 1 do
write(a[i],'  ');
readkey;
end.

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27

	вычислить сумму элементов массива до первого отрицательного 16.12.2009, 23:22. Показов 2692. Ответов 11 Метки нет (Все метки) пожалуйста можете ещё вычислить сумму элементов массива до первого отрицательного элемента; и изменить порядок следования элементов массива на обратный 0

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27
	17.12.2009, 18:08 [ТС]
	C71Me, простите занаглость! а можно по подробней! 0

@C71Me 2 / 2 / 0 Регистрация: 16.12.2009 Сообщений: 11
	18.12.2009, 19:14
	Ну как ещё подробнее?) в первой задаче Summ,i:integer; во второй i,j:integer; а далее стандартные операторы begin и end 1

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27
	18.12.2009, 21:24 [ТС]
	ВЦ! мне надо сразу в одномерном массиве, вычислить: 1) максимальный элемент массива; 2) сумму элементов массива, расположенных до последнего положительного элемента. и изменить порядок следования элементов массива на обратный. 0

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27
	19.12.2009, 14:51 [ТС]
	Тамила, как я понимаю в 19 строчке задаётся до последнего положительного элемента, если изменить её на if a[i]<0 then pos:=i; будет уже до первого отрицательного! 0

@Тамила 753 / 546 / 211 Регистрация: 12.11.2009 Сообщений: 1,100
	19.12.2009, 16:09
	blondino4ka, что за задание? Вам что нужно? 0

@blondino4ka 0 / 0 / 1 Регистрация: 16.12.2009 Сообщений: 27
	19.12.2009, 16:18 [ТС]
	всё тоже самое тока вычислить: 1) максимальный элемент массива; 2) сумму элементов массива, расположенных до первого отрицательного элемента. и изменить порядок следования элементов массива на обратный. 0