Begin randomize; for i:= 1 to 10 do A[i]:=random(11); for i:= 1 to 10 do write(A[i], ' '); {Вывод массива на экран (можно убрать, т.к в задаче это не требуется)} write('Введите число А: '); read(k); for i:= 1 to 10 do if A[i] > k then inc(j); {увеличивает j на 1} writeln(j,' чисел большьше числа ', k);
По реализации интерфейса пользователя различают неграфические и графические операционные системы. В однозадачных неграфических ОС пользователь в один момент времени работает с одной конкретной программой. Неграфические операционные системы реализуют интерфейс командной строки. Основным устройством управления в данном случае является клавиатура. Управляющие команды вводят в поле командной строки, где их можно и редактировать. Исполнение команды начинается после ее утверждения, например нажатием клавиши ENTER. Пример: МS-DOS, МSХ. Многозадачные графические ОС позволяют параллельно работать с несколькими программами, и количество программ зависит от мощности системы. Графические операционные системы реализуют сложный тип интерфейса, в котором в качестве органа управления кроме клавиатуры может использоваться манипулятор координатного типа (мышь или тачпад). Работа с графической ОС основана на взаимодействии активных и пассивных экранных элементов управления. В качестве активного элемента управления – графический объект, перемещение которого на экране синхронизировано с перемещением мыши. В качестве пассивных элементов управления - графические элементы управления приложениями (экранные кнопки, значки, переключатели, флажки, раскрывающиеся списки, строки меню и многие другие). Примеры: Мiсrоsоft Windows, UNIX, OS/2, Linux, Mac OS.
Var ar1:array of real;ar2:array of real; n,i,maxi1,maxi2,seed:integer; max1,max2:real;
function gener(var ar:array of real;i:integer; var seed:integer):real; begin; randomize(seed); {В этой задаче я впервые столкнулся с неслучайным random(). Чтобы она генерировала новый ряд чисел, измените значение seed в начале основной программы} seed:=random(-10,10); ar[i]:=random(-10,10); gener:=ar[i]; end;
procedure maxS(ar:array of real;var maxi,n:integer; var max:real); var i:integer; begin; max:=-2147483648; for i:=1 to n do if max<ar[i] then begin; max:=ar[i]; maxi:=i; end; for i:=maxi+1 to n do ar[i]:=0.5; end;
begin; randomize; readln(n); setlength(ar1,n+1); setlength(ar2,n+1); writeln('Array A:'); for i:=1 to n do write(gener(ar1,i,seed):4); seed:=random(-10,10); writeln; writeln('Array B:'); for i:=1 to n do write(gener(ar2,i,seed):4); maxS(ar1,maxi1,n,max1); maxS(ar2,maxi2,n,max2); writeln; writeln('Final array A:'); for i:=1 to n do write(ar1[i]:4); writeln; writeln('Final array B:'); for i:=1 to n do write(ar2[i]:4); end.
var
i,k,j :integer;
a :array [1..10] of integer;
Begin
randomize;
for i:= 1 to 10 do A[i]:=random(11);
for i:= 1 to 10 do write(A[i], ' '); {Вывод массива на экран (можно убрать, т.к в задаче это не требуется)}
write('Введите число А: ');
read(k);
for i:= 1 to 10 do
if A[i] > k then inc(j); {увеличивает j на 1}
writeln(j,' чисел большьше числа ', k);
End.