Составте таблицу истинности для следующей логической функции:
F=X&Yv(X&Y)

1.выбирайте правильную позу.

соблюдайте расстояние от глаз до монитора – 55-60 см (расстояние вытянутой руки).

выбирайте для работы за компьютером удобное кресло.

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

2.старайтесь выглядеть достойно в глазах собеседников,

пишите грамотно,

человек, с которым вы общаетесь, может быть не один,

сдерживайте страсти,

будьте терпимы к недостаткам окружающий

3.1.1. на основании договора;

1.2. в форме воспроизведения, без согласия newsader и без выплаты ему вознаграждения, при условии, что такое использование осуществляется гражданином исключительно в личных целях.

1.3. без согласия newsader и без выплаты вознаграждения, но с обязательным указанием ссылки на newsader в соответствии с п. 5 настоящих правил в виде:

1.3.1. цитирования материалов или их части в оригинале и в переводе в научных, полемических, критических или информационных целях в объеме, оправданном целью цитирования, включая части текстовых материалов;

1.3.2. использования материалов и их частей в качестве иллюстраций в изданиях, радио- и телепередачах, звуко- и видеозаписях учебного характера в объеме, оправданном поставленной целью;

1.3.3. воспроизведения в прессе, сообщение в эфир или по кабелю публично произнесенных политических речей, обращений, докладов и других аналогичных произведений, если они являются частью материалов в объеме, оправданном информационной целью;

1.3.4. воспроизведения или сообщения для всеобщего сведения в обзорах текущих событий средствами фотографии, кинематографии, путем сообщения в эфир или по кабелю материалов или их частей, которые становятся увиденными или услышанными в ходе таких событий, в объеме, оправданном информационной целью;

Program one;uses crt;
const
    k = 10;
var
    S: array[1..k] of integer;
    i, min: integer;
begin
    randomize;
    writeln('Array:');
    for i := 1 to k do
    begin
        S[i] := random(20);
        write(S[i], ' ');
    end;    writeln;
        min := S[1];
     for i := 2 to k do
        if S[i] < min then
            min := S[i];
    writeln('Min: ', min);
    writeln('Result:');
    for i := 1 to k do
    begin
        S[i] := S[i] - min;
        write(S[i], ' ');
    end;
end.

program two;
uses crt;
const
    m = 5;
    k = 5;
var
    A: array[1..m] of array[1..k] of integer;
    i, j, min: integer;
begin
    randomize;
    writeln('Matrix:');
    for i := 1 to m do
    begin
        for j := 1 to k do
        begin
            A[i][j] := random(20) - 10;
            write(A[i][j], ' ');
        end;
        writeln;
    end;
    writeln('Result:');
    for i := 1 to m do
    begin
        for j := 1 to k do
        begin
            if A[i][j] > 0 then
            begin
                write(A[i][j], ' ');
                break;
            end;
        end;
    end;
end.