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

[mistertvister]

что такое random?)))

[Вавел из ГМТУ]

Функция генерации случайного числа
http://www.delphibasics.ru/Random.php

[mistertvister]

пожалуйста зделайте пояснения

[mistertvister]

пояснения по задачи.

[ОДИНОЧЕСТВО В СЕТИ]

пояснения по задачи.

нету у меня такого желания
там все прозрачно! кроме последнего - про сортировку бинарными вставками почитайте и все поймете! а по поводу остального открываем учебник тема "циклы" там все это есть!

[LeBron]

Если все в одной задаче, то просто цикл по вертикали с вложеным по горизонтали. И на ходу проверяем все и сразу же выводим массив.

[mistertvister]

ок спссссссссс

[Agressser]

люди помогите решить задачу на паскале...
Найдите все трёхзначные числа, равные сумме кубов своих цифр. Учтите, что abc=100a+10b+c

[Dr1ve]

Можете помоч решить?

Дано целое n>0 и последовательность из n действительных чисел, среди которых есть хотя бы одно отрицательное число. Найти величину наибольшего из отрицательных чисел этой последовательности.

[ОДИНОЧЕСТВО В СЕТИ]

2agresser

{трехзначные равные сумме кубов своих цифр}
var i:integer;
begin
for i:=100 to 999 do
if sqr(i div 100)*(i div 100) +sqr(i div 10 mod 10)*(i div 10 mod 10)+sqr(i mod 10)*(i mod 10) = i then writeln( i:4);
readln;
end.

2 Dr1ve
{ мах отрицательное в последовательности}

var i,n:integer;
    x,max:integer;
begin
Writeln('input n');
Readln(n);
max:=-62000;
Writeln('input numbers');
For i := 1 to n do
begin
readln(x)
if (x<0) and (x>max) then max:=x;
end;
writeln('max otr=',max);
readln;
end.