как решать задачи в паскале? помогите решить задачи УМОЛЯЮ вообще не получается у меня..

1. Составьте
программу вычисления квадратов чисел от
1 до 20.

uses
Crt;
var
i : integer
begin
clrscr;
for i := 1 to 20 do
writeln('Квадрат числа ',i,' равен ',i*i);
readkey;
end.

2. Напечатать
все двухзначные числа, сумма цифр которых
равна 12.

uses
Crt;
var
i, sum : integer
begin
clrscr;
for i := 10 to 99 do
begin
sum := i mod 10 + (i div 10) mod 10;
if ( sum = 12) then
writeln('Двухзначное число ',i,' и его сумма цифр равна 12');
end;
readkey;
end.

3. Вывести
на экран в строку все числа, кратные 3 и меньшие заданного положительного
целого N.

uses
Crt;
var
i, N : integer
begin
clrscr;
writeln('Введите число N: ');
read(N);
writeln('Числа, кратные 3 и меньше ',N,': ');
for i := 1 to N - 1 do
begin
if ( i mod 3 = 0 ) then
write(i,' ');
end;
readkey;
end.

Подсчитать
сумму 10 чисел, введенных с клавиатуры.
Подсчитать
количество положительных чисел
среди 10 чисел введенных с клавиатуры

uses
Crt;
const
n = 10;
Crt;
var
i, sum, count: integer
A : array[1..n] of integer;
begin
clrscr;
writeln('Введите десять целых чисел: ');
for i := 1 to N
begin
writeln('A[',i,']:');
read(A);
end;
sum := 0;
count := 0;
for i := 1 to N
begin
sum := sum + A;
if ( A < 0 ) then
count := count +1 ;
end;
writeln('Сумма чисел равна ',sum);
writeln('Количество отрицательных чисел равно ',count);
readkey;
end.

Подсчитать
сумму 20 слагаемых 1+2+3…+20

uses
Crt;
var
i, sum : integer;
begin
clrscr;
sum := 0;
for i := 1 to 20 do
sum := sum + i;
writeln('сумма чисел от 1 до 20 равна ',sum);
readkey;
end.

Подсчитать
сумму 20 слагаемых
1-1/2+1/3…-1/20

uses
Crt;
var
i : integer;
sum : real;
begin
clrscr;
sum := 0;
for i := 1 to 20 do
begin
if ( i mod 2 = 0 ) then
sum := sum - 1/i
else
sum := sum + 1/i;
end;
writeln('сумма чисел от 1-1/2+...-1/20 равна ',sum);
readkey;
end.

С вас причитается, пусть задачи и простые, жду несколько Лучших ответов в моих ответах.

Напиши подпрограммы для вычисления делимых (она в паскале есть, это для ассемблера надо методом половинного деления самому изголяться раньше было, хотя советую попробовать, А положительные в векторе отсортируй пузырьком и найди последнее положительное. Вот его номер в новом векторе и будет кол-вом положительных. Это если общёт после ввода. А при вводе просто сравнивай с 0 и плюсуй счётчики отрицательных и положительных. Но задача может усложнится и пузырёк (не пива) поможет усложнения решить. К примеру: какое самое большое и самое маленькое положительное число, какое среднее от них и среднеквадратичное. То же к отрицательным. А потом потребуют средне квадратичное отклонение от 0 подсчитать и доверительную вероятность следующего числа. А это реальные задачи в технике. Далее будете считать абсолютную и относительную погрешность. Учитесь, учитесь, учитесь (ё моё, клавиатура заела :) ).

Гм. Помочь - это ж не значит, что программки должны написать за тебя.
Ты вообще раму (шаблон) паскальной проги знаешь? Команды ввода-вывода? Компилятор вообще работает? С простейшем случае в начале обьявляются переменные, потом begin, собссно программа: ввод, обработка и вывод данных, end.