Задача на Паскале

[Вика М.]

Вычислить и вывести на печать в виде таблицы все значения аргумента ( х положительное вещественное число) и функции при n=1,2,...,40. по формуле y=sin(n*x)-cos(n*x)

[ViNcHeStEr]

Вроде так:

program Primer;
uses crt;
var
x,y:real;
n:integer;
begin
clrscr;
write('Vvedite X: '); Readln(x);
for n:=1 to 40 do begin
y:=sin(n*x)-cos(n*x);
writeln('Y= ',y:2:2);
end;
readkey;
end.

[alex_fcsm]

program Primer;
uses crt;
var
x,y:real;
n:integer;
begin
clrscr;
write('Vvedite X: '); Readln(x);
for n:=1 to 40 do begin
y:=sin(n*x)-cos(n*x);
writeln('X=',n*x:3:3,' Y= ',y:2:2);
end;
readkey;
end.

[mayoneznaya_feya]

Ребят, помогите пожалуйста решить задачи!! ну или хотя бы помогите понять что от меня требуется!!))
1.Дана матрица размером 5Х5 элементов, случайным образом заполненная. Сформировать одномерный массив В, где B(j) равно 0,если индекс максимального значения оказывается меньше чем у минимального значения в столбце. В противном случае B(j)-1.
2. Дана произвольная строка символов. Распечатать слова,в которых нет повторяющихся символов.

[Mad_Cat]

mayoneznaya_feya создайте свою тему-не лезьте в чужие
Если нужна помощь- стучите! Аська на аватарке помогу за денюжку!