Мероприятия по техническому обслуживанию носителей информации, устройств ввода и вывода. название устройства мероприятия по техническому обслуживанию устройства ввода клавиатура сканер …. … устройства вывода монитор принтер … … носители информации жесткий диск флеш-карта … …

Устройств ввода: микрофон мышь веб-камера тачпад тачскрин джойстик геймпад руль трекбол устройства вывода: акустическая система, колонки наушники видеокарта носители информации: бумага оптические диски дискеты

Var  a: array [1..100000] of integer; i,n,k: integer; begin writeln('введите n и k'); readln(n,k); for i: =1 to n do begin writeln('введите элемент №',i); readln(a[i]); end; writeln('весь массив: '); for i: =1 to n do write(a[i],' '); writeln(); writeln('числа кратные ',k,': '); for i: =1 to n do if a[i] mod k = 0 then write(a[i],' '); end.тест №1: весь массив: 2 6 -9 4 5 12 15  числа кратные 3: 6 -9 12 15  тест №2: весь массив: 9 0 8 124 -16 11 19  числа кратные 4: 0 8 124 -16 

  pascal const       n = 20;   var           a,b,min : real;           m : array [1..n] of real;           i : integer;         begin     // формирова массива не пишу     readln (a,b);     min : = b;       for i : = 1 to n do       if (m[i]< min)   and     (m[i] > =a ) and  (m[i] < =b) then         min : = m[i];         writeln (min: 3: 2);     end.программа будет работать корректно, если в массиве есть хотя бы один элемент, в диапозон [a..b].