Петя решил создать слайд-шоу со звуковым сопровождением. В слайд-шоу
последовательно воспроизводится 10 неповторяющихся изображений, размером
1024*512 точек, кодированных с использованием цветовой палитры, содержащей 256
цветов. Каждый слайд проигрывается 4 секунды; переключение слайдов является
мгновенным. На протяжении всего слайд-шоу проигрывается моноаудиофайл,
кодированный с частотой дискретизации 32000 Гц при глубине звука 16 бит. Известно,
что сжатия изображений и звука не производится, а вся служебная информация об
организации слайд-шоу занимает 10 Кбайт. Сможет ли Петя сохранить своѐ слайд-шоу
на флешку ѐмкостью 2 Гбайта, если известно, что она уже заполнена на 90%?

Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
For i:= 1 to K do
    Begin
    Z[i]:=random(21)-10;
    Write(Z[i],' ');
    if Z[i]<0 then O:=O+Z[i]
    else P:=P+Z[i];
    End;
WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.

То же, но с вводом с клавы:

Const
K = 10;
Var
Z:array[1..K] of integer;
i:integer;
P,O:real;
Begin
WriteLn('Введите элементы массива:');
For i:= 1 to K do
    Begin
    Read(Z[i]);
    if Z[i]<0 then O:=O+Z[i]
    else P:=P+Z[i];
    End;

WriteLn;
WriteLn('Сумма положительных элементов: ',P);
WriteLn('Сумма отрицательных элементов: ',O);
End.

Надо проанализировать высказывания самого работящего лжеца и честного жителя, получающего наибольшую (из честных островитян) зарплату (и одновременно работающего больше других честных жителей).Из высказывания № 1 самого высокооплачиваемого из честных островитян очевидно, что таких жителей — не больше 10 (говорящий это и 9 или меньше человек, которых он имел в виду). С другой стороны, если проанализировать высказывание № 1 самого работящего из лжецов, то на острове имеется минимум 10 человек, работающих больше него, и все они — честные (напомним, что он — лжец и его высказывание — ложное). Таким образом, на острове живут 10 честных жителей (n = 10).Из высказывания № 2 самого высокооплачиваемого из честных жителей следует, что на острове живут минимум 100 лжецов, из такого же высказывания самого низкооплачиваемого лжеца — что лжецов на острове — максимум 100. Следовательно, на острове живут 100 лжецов (m = 100).Итак, 100 жителей острова — лжецы, и 10 — честные люди (вот такой “странный” остров  :).