программа в паскале

[4еловек-молекула]

I. Создать массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-70,70].
1. Найти сумму положительных элементов, значения которых меньше 20 по модулю.
2. Вывести индексы тех элементов, значения которых кратные 3 и 5.
3. Определить, является ли пара соседних элементов с произведением, равной заданному числу.

[Stilet]

1) Форум русскоязычный. Большинство тебя не поняли.
2) Наработки есть какие-либо?

[4еловек-молекула]

нароботок вообще нет никаких..я не сильно разбираюсь в програмированию, у меня по нём 2 балла стоит,и надо исправлять оценку

[Poma][a]

и надо исправлять оценку

Кому надо? Нам (=форумчанам)? Не.. нам не надо.. А сделать всю работу за Вас, за человека, который относится к форуму как к онлайн решателю, а не замечательному ресурсу, где обитают истинные профессионалы (и я )?
Ладно.. Вот набросал.. :

var
        a : array [1..100] of Integer;
        n, i, sum, wrk : Integer;
        flag : Boolean;

begin
        Randomize;
        ReadLn (n);

        for i := 1 to n do
                a[i] := Random (71) - Random (71);

        for i := 1 to n do
                Write (a[i], ' ');
        WriteLn;

        sum := 0;
        for i := 1 to n do
                if (a[i] > 0) and (a[i] < 20) then
                        Inc (sum, a[i]);


        WriteLn (sum);

        for i := 1 to n do
                if a[i] mod 15 = 0 then
                        WriteLn (i);

        ReadLn (wrk);
        flag := FALSE;
        for i := 1 to n-1 do
                if a[i] * a[i] = wrk then
                        flag := TRUE;

        if flag then
                WriteLn ('YES')
        else
                WriteLn ('NO')
end.

[4еловек-молекула]

спасибо огромное)
но вообще я не отношусь к этому форуму,как к онлайн решателю,я наоборот хочу научится программировать..

[Stilet]

я наоборот хочу научится программировать..

Тогда разбери программу Романа, выдели из нее слова названий функций и команд и в книгах и поисковиках почитай о них вбивая слово за слово.

[Poma][a]

я наоборот хочу научится программировать..

Тогда зачем тебе мой код? Пиши свой! Не понял-спроси, не знаешь-спроси..
Вообщем убрал я пропуски...

[4еловек-молекула]

спасибо)
мне просто очень много всего надо делать,а я не понимаю,да и учебники не сильно расказывают то чно мне надо

[Stilet]

да и учебники не сильно расказывают то чно мне надо

Гугл уже изобрели.

[Poma][a]

Да и темка соответствующая есть - тыц