Времени мало. Нужна помощь. Экзамены в ТГУ. Задачи.

[toosya]

Помогите, друг экзамены сдает. Ждет. Срочно нужно составить программы на Паскале.

1. Дан массив X из 30-ти вещественных элементов и положительное число А. Вычислить сумму номеров всех элементов массива, больших, чем А, и сумму номеров элементов массива, меньших, чем -А.

2. Даны два числа X и Y - координаты точки. Если точка попадает внутрь квадрата со сторонами, равными 1, и параллельными осям координат, центр которого сдвинут от начала координат по оси Х на 1 влево и по оси Y на 2 вверх, то должен быть выдан ответ ДА, в противном случае НЕТ.

3. На клетчатом поле размером N*N клеток расположены прямоугольные объекты, ориентированные по вертикали или по горизонтали, Объекты не накладываются друг на друга и не соприкасаются. Найти площадь самого большого горизонтального и площадь самого малого вертикального объекта. У горизонтальных объектов ширина строго больше, у вертикальных меньше

4. Дан массив А из n вещественных элементов и число В. Найти хотя бы одну пару элементов A[i] и A[i+2] сумма которых меньше В, или определить что такой пары нет.

5. Даны числа X и Y. Вычислить произведение P=(x*3/2 +2*y)(x*4/3+3*y)(.......(x*33/32+32*y)

[DM_bite]

1.

program xz;
const n=30;
var x: array [1..n] of integer;
    i: integer;
    A,sum,sum1: real;
    begin
    randomize;
    ReadLn(A);
    for i:= 1 to n do
    begin
    x[i]:= -25+random(n);
    end;
    for i:= 1 to n do
    begin
    if x[i]>A then sum:= sum+i;
    if x[i]<-A then sum1:= sum1+i;
    end;
    for i:= 1 to n do
    begin
    Write(x[i],'_');
    end;
    WriteLn;
    Write(sum,'_',sum1);
    ReadLn;
    end.

Поправьте если что, я ухожу в школу.

[__STDC__]

не совсем... у тебя сумма элементов нах-ся, надо сумму индексов..

[DM_bite]

Точно, спасибо. Просто решал другую задачу одновременно.

[__STDC__]

Вторая задача, элементарная проверка:

if (x >= -1.5) and (x <= -0.5) and
    (y >= 1.5) and (y <= 2.5) then write('YES') else write('NO');

3. Строго больше и строго меньше ЧЕГО?
4,5 элементарны.. думаю на них вообще не стоит внимание заострять..

4 примерно так:

for i:=0 to n-2 do
   if (a[i]+a[i+2]<b) then begin
     {тут уже обрабатывать... не знаю как надо... индексы запоминать, или элементы, или кол-во пар... в задании не сказано}
   end;

[toosya]

а как правильно то? )))

[__STDC__]

что именно? это зависит от условий задачи.. я не вижу там конкретного требования
или ты про первое? там уже все поменял автор

5-й например так можно:

P:=1;
for i:=2 to 32 do 
   P:=P*(x*(i+1)/i+i*y);

[toosya]

в 3 У горизонтальных объектов ширина строго больше чем у вертикальных, у вертикальных меньше чем у горизонтальных. помоги плиз..

[Dobby007]

Что это за экзамены? Вступительные? А то тоже вот хочу поступать в ТГУ и понять уровень какой хоть...

[DM_bite]

Что это за экзамены? Вступительные? А то тоже вот хочу поступать в ТГУ и понять уровень какой хоть...

Нужно создавать тему ,в предназначенном для этого, разделе.

в 3 У горизонтальных объектов ширина строго больше чем у вертикальных, у вертикальных меньше чем у горизонтальных. помоги плиз..

Выкладывай свои наработки.