Wklejka 1rwpwigp82e8g

Wykryto wyłączony javascript

Aktualnie masz wyłączony javascript. Kilka funkcji może nie działać. Włącz ponownie javascript, aby korzystać z pełnej funkcjonalności.

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Witamy w Nieoficjalnym polskim support'cie AMX Mod X, jak w większości społeczności internetowych musisz się zarejestrować aby móc odpowiadać lub zakładać nowe tematy, ale nie bój się to jest prosty proces w którym wymagamy minimalnych informacji.

Rozpoczynaj nowe tematy i odpowiedaj na inne
Zapisz się do tematów i for, aby otrzymywać automatyczne uaktualnienia
Dodawaj wydarzenia do kalendarza społecznościowego
Stwórz swój własny profil i zdobywaj nowych znajomych
Zdobywaj nowe doświadczenia

Guest Message by DevFuse

Wklejka 1rwpwigp82e8g dodana przez A może sma?, 19.04.2012 22:58

Tekst Pobierz

Typ:

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.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.

program podciagi;
uses crt;
var n,i,j,k,l,suma,max:integer;
	ciag:array[1..10000] of integer;
	podciag:array[1..10000] of boolean;
 
begin
	clrscr;
	read(n);
	for i := 1 to n do
	begin
		read(ciag[i]);
	end;
 
	for i := 1 to n do
	begin
		for j := i to n do
		begin
			suma := suma + ciag[j];
			if (suma mod 4 = 0) then
			begin
				for k := i to j do
				begin
					podciag[k] := true;
				end;
				if (suma >= max) then
				begin
					max := suma;
				end;
			end;
		end;
		suma := 0;
	end;
 
	write(max, ':');
 
	for l := 1 to n do
	begin
		if (podciag[l] = true) then
		begin
			write(' ', ciag[l]);
		end;
	end;
 
	readkey;
end.

Dodanych wklejek: 19187

Kod LaTeX

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Logowanie