Составьте алгоритм для известной про волка, козу и капусту. : старик должен перевезти в лодке через реку волка, козу и капусту. за один раз он может перевезти только одного волка, или одну козу, или одну капусту. волка нельзя оставлять с козой, козу с капустой. надо составить алгоритм перевоза так, чтобы все остались целы. ) заранее : )

1) перевозим козу на тот берег
2)перевозим волка на тот берег
3)перевозим козу обратно и оставляет там
3)перевозим капусту на тот берег
4)возвращаемся к коже и перевозимых её
5) конец

1 кнопка панели инструментов (Открыть) предназначена для того, что бы открывать файлы, проекты. 2 кнопка панели инструментов (Сохранить проект) предназначена для того, что бы сохранять проекты. 3 кнопка панели инструментов (Добавить файл) предназначена для того, что бы добавить файл. 4 кнопка панели инструментов (Добавить текст) предназначена для того, что бы добавлять текст. 5 кнопка панели инструментов (Добавить пустой) предназначена для того, что бы добавлять пустое место в проекте. 6 кнопка панели инструментов (Запись) предназначена для того, что бы записывать проект.

1
DIM A(10, 5)
RANDOMIZE TIMER
FOR I = 1 TO 10
    FOR J = 1 TO 5
        A(I, J) = INT(RND * 10)
        PRINT A(I, J);
        S = S + A(I, J) ^ 2
    NEXT J
    PRINT , S
NEXT I

Исправленный вариант (предыдущий находил только суммы квадратов элементов). Уменьшил размерность массива и значение элементов, что бы через-чур большие числа не появлялись
DIM A(3, 3)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 3
    FOR J = 1 TO 3
        A(I, J) = INT(RND * 5)
        PRINT A(I, J);
        S = S + A(I, J) ^ 2
    NEXT J
    P = P * S
    PRINT
NEXT I
PRINT
PRINT "P="; P

2 
DIM A(10)
RANDOMIZE TIMER
P = 1
FOR I = 1 TO 10
    A(I) = INT(RND * 20) - 10
    PRINT A(I); " ";
    IF A(I) > O THEN
        S = S + A(I)
        P = P * A(I)
        N = N + 1
    END IF
NEXT I
PRINT
PRINT "S=";
SPRINT "P=";
PPRINT "Kol-vo="; N