-Цитата от Ридл Гатофель 
-Цитата от A-Din -Цитата от Carnage Поц, задачи-то тривиальные, ты ведь даже не пытался их решить?
было б не стремно, еслиб ты скинул свой вариант, мол "не работает, помогите найти ошибку", а так пинаешь хуй в надежде, что за тебя поработают.
Сам то я шарагу закончил давно.
Братишка подбежал говорит мол помоги, сам разводит он бабками, а тут принципиальный короче препод оказался.
На бюджетке он, от этого зависит будет ли он получать стипендию.
Такая вот хуйня. Паскаль я по школе изучал, но не помню что да как там.
Ладно, ты меня растрогал. Когда срок сдачи?
Желательно сегодня
Добавлено через 1 час 9 минут 41 секунду
Короче похожую задачку нашел
Дано натуральное число. Сформировать массив чисел делящихся на 5
Теперь нужно соответственно 5 перевести на 3 и сделать массив отрицательных.
Код Pascal Показать скрытый текст
const
Max_Value = 100;
var
arr: array[1..Max_Value] of integer;
n, i, j: integer;
begin
repeat
write('N: ');
readln(n);
until (n in [1..Max_Value]);
writeln('Массив чисел, кратных 5: ');
i:=1; j:=5;
repeat
arr[i]:=j;
write(arr[i], ' ');
j:=j+5;
i:=i+1;
until (i = n+1);
end.