15.12.2010, 23:04 | #1 (permalink) |
Новичок
Регистрация: 15.12.2010
Сообщений: 3
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Проблема с Паскалем
Minmax26.Дно целое число N и набор из N целых чисел. Найти максимальное количество четных чисел в наборе, идущих подряд. Если четные числа в наборе отсутствуют, то вывести 0. Minmax19. Дано целое число N и набор из N целых чисел. Найти количество минимальных элементов из данного набора. Array26. Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность. Array19. Дан целочисленный массив A размера 10. Вывести порядковый номер последнего из тех его элементов Aк, которые удовлетворяют двойному неравенству A1 < AK < A10. Если таких элементов нет, то вывести 0. |
15.12.2010, 23:04 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Я думаю, что в похожих обсуждениях содержаться содержательные ответы Помогите с Паскалем Помогите с Паскалем Помогите с Паскалем |
16.12.2010, 04:24 | #3 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
Листинг следующий: Код:
program mass; var a: array[1..10] of integer; i,k:integer; begin for i:=1 to 10 do readln(a[i]); k:=0; if a[1]<a[10] then begin for i:=2 to 9 do if (a[i]>a[1]) and a[i]<a[10] then k:=i; writeln(k); end else writeln('неравенство не соблюдено, первый элемент не меньше десятого'); readln end.
__________________
Убить всех человеков! |
|
16.12.2010, 11:02 | #4 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR A:ARRAY[1..200] of WORD; N,N_even,N_even_max:Byte; i:Integer; BEGIN Write('N= '); ReadLn(N); For i:=1 to N do begin Write('A[',i:2,']= '); ReadLn(A[i]); end; N_even_max:=0; i:=0; Repeat Inc(i); Until ((A[i] mod 2)=0) or (i=N); If ((A[i] mod 2)=0) and (i=N) then N_even_max:=1 else Begin i:=0; Repeat N_even:=0; repeat Inc(i); until ((A[i] mod 2)=0) or (i=N); If i<N then begin N_even:=1; repeat Inc(N_even); Inc(i); until ((A[i] mod 2)=1) or (i=N); If (i<N) or ((i=N) and ((A[i] mod 2)=1)) then Dec(N_even); end; If N_even_max<N_even then N_even_max:=N_even; Until i=N; End; WriteLn('Max number of even adjacent elements is ',N_even_max); ReadLn; END. |
|
16.12.2010, 11:11 | #5 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR A:ARRAY[1..200] of WORD; A_min:WORD; N,N_min:Byte; i:Integer; BEGIN Write('N= '); ReadLn(N); For i:=1 to N do begin Write('A[',i:2,']= '); ReadLn(A[i]); end; A_min:=A[1]; For i:=2 to N do If A[i]<A_min then A_min:=A[i]; N_min:=0; For i:=1 to N do If A[i]=A_min then Inc(N_min); WriteLn('Number of minimum elements is ',N_min); ReadLn; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
16.12.2010, 14:22 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
VAR A:ARRAY[1..200] of WORD; N:Byte; i:Integer; BEGIN Write('N= '); ReadLn(N); For i:=1 to N do begin Write('A[',i:2,']= '); ReadLn(A[i]); end; i:=2; If (A[1] mod 2)=1 then begin Repeat Inc(i); Until ((A[i] mod 2)<>(i mod 2)) or (i=N); If (i=N) and ((A[N] mod 2)=(N mod 2)) then WriteLn('0') else WriteLn('The element number ',i,' breaks the sequence'); end else begin Repeat Inc(i); Until ((A[i] mod 2)=(i mod 2)) or (i=N); If (i=N) and ((A[N] mod 2)<>(N mod 2)) then WriteLn('0') else WriteLn('The element number ',i,' breaks the sequence'); end; ReadLn; END. |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|