В случае если они файлы находятся не во временном хранилище.
Function Min(a,b : Integer) : Integer;
Begin
If a<b then Min:=a else Min:=b;
end;
Var x,y,z : Integer;
Begin
Readln(x,y,z);
Writeln(Min(Min(x,y),z));
end.
через генератор случайных чисел
program noname;
uses crt;
var
n,k,i:integer;
a:array[1..1000] of longint;
max:longint;
begin
clrscr;
write('vvedi period n=');
readln(n); k:=0;
for i:=1 to n do begin
randomize;
a[i]:=random(10000);
writeln(a[i]);
if a[i]-1000<0 then k:=k+1;
end;
max:=a[1];
for i:=2 to n do
if max<a[i] then max:=a[i];
writeln(k,'-дни без прибыли ',max,'-максимальная выручка');
end.
Правовая охрана чего именно?:))
Оцифровка звука<span> — технология поделенным временным шагом и последующей записи полученных значений в численном виде. Другое название</span>оцифровки звука<span> — аналогово-цифровое преобразование </span>звука<span>. </span>Оцифровка звука<span>включает в себя два процесса: процесс дискретизации (осуществление выборки) сигнала по времени</span>