Измерения прямоугольного параллелепипеда 15 м, 50 м и 36 м. 2) Найдите ребро равновеликого ему куба

Найдите наибольшее значение функции у=2х/х^2+16 на отрезке [-10;10]

Встретились три друга:скульптор Белов,скрипач Чернов и художник Рыжов."Замечательно,что один из нас блондин,другой брюнет,а третий рыжеволосый,но ни у одногонетволос цвета,на который указывает его фамилия",заметил брюнет."Ты прав____ сказал Белов.Какой цвет волос у художника?

Много баллов(78) за блок-схему...завтра курсовую сдавать :(

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

uses crt;

type mas=array [1..100] of integer;

var

b:mas;

p,i,n:integer;

procedure vvod (x:mas;k:integer);

var i,p:integer;

begin

for i:=1 to n do begin

write('Vvedite chislo: ');

readln(x[i]);

end;

for i:=1 to n do

write(x[i]:3);

for i:=n downto 1 do

if x[i]<0 then

p:=i;

writeln;

write('= ',x[p-1]);

writeln;

readln;

end;

begin

clrscr;

write('Vvedite kol-vo chisel: ');

readln((n));

vvod (b,n);

readln;

end.