//Pascal ABC.NET 3.1 сборка 1219
Var
ai,n1,n2,i,k,max:integer;
begin
readln(ai);
read(n1);
max:=-1;
k:=1;
for i:=2 to ai do
begin
read(n2);
if n2>=n1 then
begin
inc(k);
n1:=n2;
end
else
begin
k:=1;
n1:=n2;
end;
if k>max then max:=k;
end;
if max=-1 then writeln('1') else writeln(max);
end.
Пример ввода:
6
2
2
1
3
4
1
Пример вывода:
3
<span> новый международный стандарт Unicode, который отводит два байта, и поэтому с его помощью можно закодировать не 256, а 65536 различных символов
соотвественно это 4 </span>
Ладно, раз все эти нюансы не важны, то вот так:
program Project1;
var
x,y, d: real;
begin
write(' Enter X:');
readln(x);
write('Enter Y:');
readln(y);
d:= ((abs(x)-abs(y)))/((1+abs(x*y)));
writeln(d:0:5);
readln;
end.
Как то так...
16*x бит = 128 кбайт
16*x бит = 16 * 8 кбайт
16*x бит = 16 * 8 кбит
6*x/1024 кбит = 16 * 8 кбит
6*x/1024 = 16 * 8
x =16 * 1024
<span>x =16384</span>
Например список учеников класса,можно составить таблицу по нескольким критериям:рост,вес,пол И так далее