Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Pasha
//fpc 3.0.0 program Pasha; const a = 10; var N,i: integer; ar:array [0..a-1] of real; r,max,m:real; begin readln (N); for i := 1 to a do begin readln(r); ar[i mod a] := r; end; max := 0; m := 0; for i := a + 1 to N do begin readln(r); if ar[i mod a] > m then m := ar[i mod a]; if r + m > max then max := r + m; ar[i mod a] := r; end; writeln (max:4:0); end.
run
|
edit
|
history
|
help
0
aefrt
Tri 1.0
135
9
Task 2
Fibonacci
For1
Mostrar un arreglo ( array )
hello world
practica 9 ejercicio 2