var n,i,max:integer;
a:array[1..10000] of integer;
begin
randomize;
writeln('Введите кол.натур. чисел: ');
read(n);
for i:=1 to n do begin
a[i]:= random(n*n);
write(a[i],' ');
//read(a[i]); //Если нужен ввод с клавиатуры
end;
writeln;
max:=a[1];
for i:=1 to n do begin
if a[i]>= max then
begin
max:=a[i];
end;
end;
writeln('Наибольшее число:', max);
end.
Var a,b,c,d:integer;
begin
read (a,b);
if a>b then begin c:=a; d:=b;end
else c:=b; d:=a;end;
writeln(c,d);
end.
Var a:integer;
begin
readln(a);
a:= (a div 100) + ((a div 10) mod 10)+ (a mod 10);
if a mod 2 = 0 then writeln ('сумма цифр числа четная')
else
writeln ('сумма цифр числа нечетная');
end.
Косинус положителен от -90 до 90 градусов, от -π/2, до π/2.
Если у тебе даны x и y, то x должен быть положительным, а y любым.
Фото:
http://www.uznateshe.ru/wp-content/uploads/2012/08/znakicos2.png
16 бит * 24000 Гц * 4 канала * 1 сек = 1536000 бит
1536000 бит / 8 = 192000 байт
192000 байт / 1024 = 187,5 кбайт.
187.5 кбайт / 1024 = 0,18310546875 мбайт
48 мбайт / 0,18310546875 мбайт = 262,144 секунд
из этих и выбери