М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
antanika2000
antanika2000
18.04.2021 00:28 •  Информатика

Логические выражения и проверьте правильность
преобразований построением таблиц истинности для исходного и
выражений.

👇
Открыть все ответы
Ответ:
Saidusa
Saidusa
18.04.2021
Компьютерная мышь - гаджет, без которого сложно представить управление компьютером. Первую компьютерную мышь создал Дуглас Энгельбарт в 1970 году. Если сейчас этот гаджет работает с сенсора на нижней части, то в на этом месте располагалось колесико, с которого и было возможно управлять курсором. Всего около двадцати лет назад мышь была с двумя небольшими кнопками и проводом. До этого кнопок было три. Позже появилось и колесо прокрутки, которое до сих пор остается на некоторых мышках. Инновацией является сенсорная мышь от Apple, на которой вовсе нет кнопок. Но не на всех современных мышках либо две кнопки, либо они просто отсутствуют. Сегодня уже невозможно представить игровую мышь без каких-либо дополнительных кнопок. Одна из особенностей современного гаджета -  отсутствие провода. При покупке такой мыши покупатель получит два предметам - саму мышь и приемное устройство, для которого обязательно понадобится USB-вход.
4,8(48 оценок)
Ответ:
const
    handsfree = false;

var
    a: array[1..100] of real;
    i, n: integer;
    sum_pos, sum_neg: real;
    k_pos, k_neg: integer;

begin
    {ввод массива}
    if handsfree then
        n := random(20) + 5
    else begin
        write('n = ');
        readln(n);
    end;
    
    writeln('Данные массива:');
    for i := 1 to n do
    begin
        if handsfree then begin
            a[i] := random(100) - 50;
            write(a[i], ' ');
        end
        else readln(a[i]);
    end;
    writeln();
    
    {подсчет}
    sum_pos := 0;
    k_pos := 0;
    sum_neg := 0;
    k_neg := 0;
    for i := 1 to n do
    begin
        if a[i] > 0 then
        begin
            sum_pos := sum_pos + a[i];
            k_pos := k_pos + 1;
        end;
        
        if a[i] < 0 then
        begin
            sum_neg := sum_neg + a[i];
            k_neg := k_neg + 1;
        end;
    end;
    writeln('average (positives) = ', sum_pos / k_pos);
    writeln('average (negatives) = ', sum_neg / k_neg);
end.
4,6(5 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ