Программа, запускаемая при включении персонального компьютера, осуществляющая диалог с пользователем, организующая ресурсами компьютера и реализующая выполнение других программ, называется… a сервисной программой; b программой оболочкой; c драйвером; d операционной системой.

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

Program a23; const       max = 42; var       vt: array[1..max]of integer;       i,n: byte;       x: integer;       num: integer; begin   n : = max;   writeln('массив из n элементов будет задан случайными числами на интервале [0..20].');   readln(n);     writeln('подсчитать количество положительных элементов больших чем указанное число.');   writeln('введите число: '); readln(x);   writeln(' ');   writeln('начальный массив' );   randomize;   num : = 0;   for i: =1 to n do begin       vt[i]: =random(-512,512);       write(vt[i], ' ');             if (vt[i]> 0) then           num: =num+1;             end;   writeln(' ');   writeln('найдено ', num,' положительных элементов больших чем ', x);   end.

Program ten; const n=2; var a,b,c,d,e,f,p: integer; begin  write ('введите число a '); read(a); write ('введите число b '); read(b); write ('введите число c '); read(c); write ('введите число d'); read(d); write ('введите число e '); read(e); write ('введите число f '); read(f); p: =0; if a mod n = 0 then p: =p+1; if b mod n = 0 then p: =p+1; if c mod n = 0 then p: =p+1; if d mod n = 0 then p: =p+1; if e mod n = 0 then p: =p+1; if f mod n = 0 then p: =p+1; write ('количество четных чисел = ',p); end.   вот так, программа работает.