|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
21.05.2014, 23:37 | #1 (permalink) |
Новичок
Регистрация: 21.05.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите решить. Паскаль
|
21.05.2014, 23:37 | |
Helpmaster
Member
Регистрация: 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) |
Новичок
Регистрация: 21.05.2014
Сообщений: 5
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|