Написать программу для задачи «Жизнь» (смотри «Этюды для программистов» Уузерелла, статья «Жизнь диктует свои законы»)

этот файл предназначен для загрузки из под dos, а не из под windows

еще проблема может быть в том, что процессор 32-битный, а установка windows 64-битная

ответ:

1) var a: array [1..100] of integer;

    n,i,k,t,m: integer;

begin

read(n);

for i: = 1 to n do

a[i]: = random(100)-50;

for i: = 1 to n do

if a[i]=0 then

k: =k+1

    else if a[i]> 0 then

m: =m+1

else if a[i]< 0 then

t: = t+1;

writeln('нулевых чисел: ',k ,'больше нуля : ', m,'меньше нуля: ',t);

end.

объяснение:

вот мой г**нокод на javascript с одного онлайн-курса, но с использованием while. скину сотку на телефон любому, кто в нем разберется:

function cycle(a, b) {

    while(a ! = b) b = a> b ? [a,a=b][0]-a : b-a

    return a;

}

но поскольку я вижу сверху ключевое слово repeat, полагаю, нужно это сделать в pascal. ради б-га:

var a,b: integer;

begin

    a : = 32;

    b : = 32;

    while not (a = b) do

    begin

        if a > b then begin

            a : = a - b;

        end else

            b : = b - a;

    end;

    writeln(a);

end.