Задачи, Способы решение к задачам с использованием for, minmax, array/ Опции

[SLAX]

Превет всем!
Я новичок в єтом деле , и както не задумывался весь учебный период что прийдется учить но вот пришла сесия и теперь надо по трудиться, начал сам изучать Паскаль, структуру написания его понял , єто не трудно.
Но вот математические алгоритмы для меня сложнее сделать,

ЛЮДИ кто неплохо програмирует пожалуйста помогите решить 3 задачи, я знаю для вас єто не составит труда а мне вы окажете большую услугу.

Вот выкладываю задачи.Они на таки вот темы на оператор : for. Потом по тему массивов : array. И minmax.

1. В єтой задаче я не пойму как составить мат. алгоритм
Дано целое число N (> 0).Найти сумму
N^2 + (N + 1)^2 + (N + 2)^2 + ... + (2*N)^2
N - (целое число).

То есть описываю как я понял ее алгоритм и строение
Вот
1. N>0, В=Експонента bn , bn=(2*N)^2/
2. Найти сумму.

Если что не так как я понял поправьте меня.

А теперь вот как я понял как надо написать код.

 
program for_11;
var c, b, N:integer;
begin
b:=0;
n:=0;
writeln ('Введите число');
readln©
for b:=1 to c do
b=b+(N+C)^2
if C<N then 
C:=+1 " И надо что бы она вернулась опять в строчку b=b+(N+C)^2"
else 
end.
 

вот мое представление , поправьте меня потому как программа не работает.
Вот пример пользователь водит 1 N=1 сума= 5
N=2 сума= 29
N=7 сума= 924

Всем заранее спасибо за ответ.

P.S. Пожалуйста модераторы не закрывайте тему потому как я действительно не пойму как решить данное задание.
Хотелось бы услышать помощь до завтра - послезавтра.




2. Дано целое число N и набор из целых чисел N. Найти номер первого экстремального ( то есть минимального и максимально ) элемента из даного набора.

3.Дан массив А размера N и целое число К (1 < K < N).ввывести элементы массива с порядковыми номерами, кратными K: AK, A2*K, A3*K, .... . Условный оператор не использовать.

Если не сложно то выложите код а если сложно то хотяб алгоритм и структуру прог.

ЗАРАНЕЕ ВСЕМ СПАСИБО КТО ОТВЕТИТ В ЭТОЙ ТЕМЕ.

[arhimag]

[pascode] program minmax;

const n=10;
var a: array [0..10] of real;
i:integer;
tmp,tmp1: real;

begin
for i:=1 to 10 do
begin
writeln('Ââåäèòå ' ,i, ' -é ýëåìåíò ìàññèâà ');
readln(a[i]);
end;
tmp := -10000;
tmp1 := 10000;
for i:= 1 to 10 do begin
if tmp<a[i] then
tmp:=a[i];
if tmp1>a[i] then
tmp1:=a[i];
end;
writeln ('Íîìåð ìàêñèìàëüíîãî ÷èñëà â ìàññèâå', tmp );
writeln ('Íîìåð ìèíèìàëüíîãî ÷èñëà â ìàññèâå', tmp1 );
readln;
end. [/pascode]

[-SLAX-]

[pascode] program minmax;

const n=10;
var a: array [0..10] of real;
i:integer;
tmp,tmp1: real;

begin
for i:=1 to 10 do
begin
writeln('Ââåäèòå ' ,i, ' -é ýëåìåíò ìàññèâà ');
readln(a[i]);
end;
tmp := -10000;
tmp1 := 10000;
for i:= 1 to 10 do begin
if tmp<a[i] then
tmp:=a[i];
if tmp1>a[i] then
tmp1:=a[i];
end;
writeln ('Íîìåð ìàêñèìàëüíîãî ÷èñëà â ìàññèâå', tmp );
writeln ('Íîìåð ìèíèìàëüíîãî ÷èñëà â ìàññèâå', tmp1 );
readln;
end. [/pascode]

Очень большое спасибо, просто немного перепутал и значениям но можно спросить а можно так было чтобы оно выводило просто один номер любого экстремального числа( то есть будь то число минунимумом или максимум) просто программа выдавала что номер экстремального числа 10?

Еще раз огромное спасибо