13.05.2012, 18:21 | #1 (permalink) |
Новичок
Регистрация: 13.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите с задачей в паскале на одномерные массивы
|
13.05.2012, 18:21 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Содержание вашей темы довольно часто встречалось и ранее Помогите с задачей в паскале, работа с файлами Помогите, пожалуйста, с задачей на массивы Помогите с задачей в Паскале Массивы на Паскале |
13.05.2012, 20:29 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Const N=20; Var i,j,a,b:Byte; Sum,D:Real; V:Array[1..N] of Real; R:boolean; Begin Randomize; R:=false; Sum:=0; Writeln('Initial array:'); For i:=1 to N do begin V[i]:=100*Random-50; If R then Sum:=Sum+V[i]; If (V[i]>0) and Not(R) then R:=true; Write(V[i]:8:3); end; Writeln; Writeln; Writeln('Sum= ',Sum:0:3); Writeln; Writeln; Write('a (lower limit) = '); Readln(a); Write('b (upper limit) = '); Readln(b); Writeln('Ordered array:'); Writeln; Writeln; For i:=1 to N-1 do For j:=N downto i+1 do If ((Trunc(V[j])>=a) and (Trunc(V[j])<=b)) and ((Trunc(V[j-1])<a) or (Trunc(V[j-1])>b)) then begin D:=V[j-1]; V[j-1]:=V[j]; V[j]:=D; end; For i:=1 to N do Write(V[i]:8:3); Readln End. |
|
13.05.2012, 23:03 | #3 (permalink) |
Новичок
Регистрация: 13.05.2012
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо большое!!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|