Program example;
Uses math;
var i,n,x,max: Integer;
a: array[1..100] of Integer;
Begin
write('Введите количество элементов массива: ');
readln(n);
max := 0;
x := 0;
randomize;
for i :=1 to n do
a[i]:=randomrange(-100,100); // Заполнение массива случайными числами от -100 до 100.
write(a[i], ' ');
if a[i] > 0 then
inc(x);
If x > max then max := x;
End
else
End;
writeln;
writeln('Максимум подряд идущих положительных чисел: ', max);
End.
I. Сымсыз желілер түсінігі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...5
ІІ. Wi.Fi технологиясы
2.1. Архитектурасы, желі компоненттері және стандарттар ... ... ... ... ... ... ... 9
2.2. Желіні ұйымдастыру ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...14
2.3. Wi.Fi желісінің қауіпсіздігі ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... 19
ІІI. WiMax технологиясы ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...23
ҚОРЫТЫНДЫ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...27
ПАЙДАЛАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...28
Program example;
Uses math;
var i,n,x,max: Integer;
a: array[1..100] of Integer;
Begin
write('Введите количество элементов массива: ');
readln(n);
max := 0;
x := 0;
randomize;
for i :=1 to n do
Begin
a[i]:=randomrange(-100,100); // Заполнение массива случайными числами от -100 до 100.
write(a[i], ' ');
if a[i] > 0 then
Begin
inc(x);
If x > max then max := x;
End
else
Begin
x := 0;
End;
End;
writeln;
writeln('Максимум подряд идущих положительных чисел: ', max);
End.