(gameobject earth=void; -3 static surr^gameobject sun=particle; ~, -2 coll mvm)=false
Const n=10;
var a:array [1..n] of integer;
k,i:integer;
begin
writeln('vvedite massiv =');
for i := 1 to n do
readln(a[i]);
k:=0;
for i := 1 to n do
if a[i]>0 then inc(k);
writeln('k=',k);
readln;
end.
Предпоследние семь строчек записывают массив работников и зарплату (созданная случайным образом), общую сумму и количество работников с указанной зарплатой в файл (в программе настроено в файл output.txt на локальном диске С, при желании можно изменить название файла и месторасположения его)
При правильной работе программы на диске С данный файл создается. Если его открыть, в нем будут те же данные, которые выдаст программа на экран монитора
Измените тип переменных n и k на integer:
function Xfact(o: integer): integer;
var
factorial: longint;
i: integer;
begin
write('o = ');
readln(o);
factorial := 1;
for i := 2 to o do
factorial := factorial * i;
end;
var
c: real;
n,k:integer;
begin
writeln('Введите число n: ');
readln(n);
writeln('Введите число k: ');
readln(k);
c := Xfact(n) / Xfact(n - k) * Xfact(k);
writeln('C = ', c);
end.