const n=40; var a:array [1..n] of integer; i,k:integer; begin Randomize; k:=0; Writeln('Исходный массив'); for i:=1 to n do begin a[i]:=random(63)+20; Write(a[i],' ') end; Writeln; Writeln('Четные элементы, кратные 3'); for i:=1 to n do if a[i] mod 6=0 then begin Inc(k); Write(a[i],' ') end; Writeln; Writeln('Отобрано элементов: ',k) end.
const n=20; var a:array [1..n] of integer; i,imin:integer; begin Randomize; Writeln('Исходный массив'); imin:=1; for i:=1 to n do begin a[i]:=random(351)+20; Write(a[i],' '); if a[i]<a[imin] then imin:=i end; Writeln; Writeln('Минимальный элемент a[',imin,']=',a[imin]) end.
1. Почему работа компьютера невозможна без операционной системы? Потому что операционная система дает игроку весь возможносный инструментарий. Много ли вы сможете наработать на выключенном компьютере? 2. Какие операционные системы вы знаете? Windows (95,98, ME, XP, 7, 10), Android, Linux, MacOS 3. Какие программы, кроме операционной системы, относятся к системному ПО? Драйвера, антивирусы,
4. Какие системы программирования вам известны? Pyton, C++ 5. Для специалистов какой профессии предназначены системы программирования? Программист, Специалист в области кибербезопасности
not (not A * not B) or not C = not A or B or not C