Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 21.05.2014, 23:37   #1 (permalink)
Lensom
Новичок
 
Регистрация: 21.05.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить. Паскаль

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

Старый 21.05.2014, 23:37
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Похожие посты уже встречались на нашем форуме, обратите внимание

Помогите решить задачу. Паскаль
Помогите решить уравнение. Паскаль
Помогите пожалуйста решить задачу Паскаль

Старый 22.05.2014, 01:18   #2 (permalink)
Евгений
Member
 
Аватар для Евгений
 
Регистрация: 31.03.2010
Адрес: Тульская область
Сообщений: 1,309
Сказал(а) спасибо: 11
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 13090
По умолчанию

const n=10;
var A: array[1..n] of integer;
i,j: byte;
n1,n2: integer;
sum: integer;
begin
Randomize;
for i:=1 to n do begin
A[i]:= Random(100)-40;
Write(A[i]:4);
end;
Writeln;
j:=0; n1:=0; n2:=0;
repeat
for i:=1 to n do begin
if (A[i]<0) and (n1<>0) then begin
n2:= i;
Inc(j);
Break
end;
if (A[i]<0) and (n1=0) then begin
n1:= i;
Inc(j);
end;
end;
until j=2;
sum:=0;
if (n1+1)=n2 then sum:=0
else
if (n1+1)=(n2-1) then sum:= A[n1+1]
else
for i:=(n1+1) to (n2-1) do
sum:= sum + A[i];
Writeln(sum);
Readln;
end.
Евгений вне форума   Ответить с цитированием
Старый 22.05.2014, 01:57   #3 (permalink)
Lensom
Новичок
 
Регистрация: 21.05.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Спасибо большое.
Lensom вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 00:49.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.