Program znanija; var A:array[1..20] of integer; i,k,min,n:integer; begin min:=1000000000; // прощу прощение за такое )
for i:=1 to 20 do A[i]:=random(9); // заполняем массив
for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер if (A[i] < min) and (A[i] mod 2 <> 0) then begin n:=i; min:=A[i]; end;
for i:=1 to 20 do write(A[i]:3); // Выводит весь массив
writeln(); // просто перевод на новую строку для красоты
writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер end.
dkvsadovoe
10.07.2022
А) В компьютере постоянно идёт сбор информации вне зависимости от того что мы делаем ( печатаем , играется или сидим в интернете ). Вот почему после каждого посещения интернета советуют чистить компьютер при программ чистителей к примеру : CCleaner . б) После сбора информации идёт сразу же её обработка чтобы узнать её свойства . При обработке может попасть вирус , который будет исполнять определённую роль заложенную в её программе . Предупреждение и обезвреживание компьютерных вирусов могут программы антивирусы к примеру : DrWeb и Avast . в) Упрощение информации ето скорее всего её классификация , расортировка и сжатие ( архивация ). г) Создание информации ето самый по своей сути прост ведь информацию можно создать банально открыв программу блокнот на компьтере и напечатать символ точку ( . ) вот и все маленькая но всеже информация создана . д) Возьмём ету-же точку в блокноте информации есть но как только вы выйдете из етой программы без сохранения информация пропадает но стоит только нажать кнопку сохранить и ета информация сохранится где-то в корневой папке программы "Блокнот" .
Большем не напечатаю вот то что смог и не знаю подойдёт ли ! Сори если че не так Удачи &-)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Запишите в развернутой форме число 143511 в 16вычислите десятичные эквиваленты числа 243 в 6
var A:array[1..20] of integer;
i,k,min,n:integer;
begin
min:=1000000000; // прощу прощение за такое )
for i:=1 to 20 do A[i]:=random(9); // заполняем массив
for i:=1 to high(A) do // находим минимальное нечётное, запоминаем его номер
if (A[i] < min) and (A[i] mod 2 <> 0) then begin
n:=i; min:=A[i];
end;
for i:=1 to 20 do write(A[i]:3); // Выводит весь массив
writeln(); // просто перевод на новую строку для красоты
writeln('Minimum: ',min,' Ego nomer: ',n); // выдаём минимальное и его номер
end.