Помогайте люди) Дано натуральное число n. В матрице P(n) выстроить элементы по убыванию.

Как задать рандомно все элементы массива?

помогите вопрос жизни и смерти!!! Даны 3 точки определить находятся ли они на одной прямой

вот я сделал её: program laba1; var y,x,k,x1,x2,x3,y1,y2,y3,b:integer; begin write("vvedite x1"); readln(x1); write("vvedite y1"); readln(y1); write("vvedite x2"); readln(x2); write("vvedite y2"); readln(y2); write("vvedite x3"); readln(x3); write("vvedite y3"); readln(y3); y:=kx+b; write("vvedite k"); readln(k); write("vvedite b"); readln(b); if y1=kx1+b then writeln("tochka 1 nahoditsa na praymoi") else writeln("tochka 1 ne nahoditsa na praymoi"); if y2=kx2+b then writeln("tochka 2 nahoditsa na praymoi") else writeln("tochka 2ne nahoditsa na praymoi"); if y3=kx3+b then writeln ("tochka 3 nahoditsa na praymoi") else writeln("tochka 3 ne nahoditsa na praymoi"); readln; end.

но мне надо записать её через функцию, помогите мне в этом, пожалуйста

deat2OO8, я тебе так и написал. Если введешь срок 16, он те выведет скока снял потом, если 20, то тож скока снимет

U_U, если одномерный: после begin(или после Clrscr,если пишешь) напиши randomize,а потом: Writeln("n="); Readln(n); For i:=1 to n do begin A:=-20+random(40); Write(a,"_"); End; а если двумерный, то после randomize пиши writeln("n=");Readln(n);writeln("m=");Readln(m); For i:=1 to n do for j:=1 to m do a[i,j]=-10+random(20);

Can Fly, я те по аське скину блин,в бокс хотел,звиняюсь

ВСЕМ ПРИВЕТ! У меня вот такая праблема-в школе задали написать в тетрадь алгоритм любой простейшей программы на бэйсике. Кто может чем помочь? Очень надо!

ребята помогите пожалуйста а то мне препод яйца оторвет.мне надо на паскале сделать инициалы С Н чтобы они были объемные и вращались.зачет через день а я херней страдал.кто сможет сделать?

Помогите.!задача такая:y=корень(а-3)/cosx -1/2x

Помогите решить задачку: нужно найти произведение двух чисел с помощью подпрограммы