Pascal

Здраствуйте, учусь в 10 классе, задали 5 задачек решить и не получается что-то.. вот собственно и они:
1. Составить программу нахождения натурального наибольшего среди тех элементов массива, что лежат в интервале от C по D (интервал я задаю сам)
2. СП вычисления суммы массива встречающихся в этом массиве 2 раза.
3. СП вычисления разности между max и min элементом массива.
4. СП замены в массиве нулевых элементов массива на квадрат певого элемента
5. СП подсчёта чисел наименьших по модулю элементов массива.
Заранее спасибо...

первое что в голову пришло
1)

q:=0;
for i:=1 to N do begin
if A[i]>=C and A[i]<=D then bedin
if A[i]>=q then A[i]:=q;
end;
end;
writeln('Max = ',q);

4)

for i:=1 to N do begin
if A[i]=0 then A[i]:=A[1]*A[1];
end;

мне бы желательно полностью,а не отрывками ...с началом: program

Да забей ты... в 10 класе то.

....если бы эта оценка не влияла на годовую, забил бы...

Сейчас напишу.

Дельфями пойдет?

3. EZHIK, ууууу.... как всё запущено
1)

program visavi;
var N,C,D,q,i:integer;
A:array [1..100] of integer;
begin
write('Введите количество элементов в массиве: ');
readln(N);
for i:=1 to N do begin
writeln('Введите ',i,'-й элемент массива: ');
readln(A[i]);
end;
q:=0; 
for i:=1 to N do begin 
if A[i]>=C and A[i]<=D then bedin 
if A[i]>=q then q:=A[i]; 
end; 
end; 
writeln('Max = ',q);
readln;
end.

остальные по такомуже типу...
PS не проверял... давно паскалем не занимаююсь...

Neformat (Сегодня / 17:03)
Сейчас напишу

давай жду)

Делфи (Сегодня / 17:06)
Дельфями пойдет?

не

РжаЧНыЙ НэКО (Сегодня / 17:07)
if A[i]>=C and A[i]<=D then bedin

bedin - это че? очепятка?

Полтора года назад такие задачи писал в школе. Сейчас всё забыл из-за ненадобности