</script>alert("Макс. красного: " + max);//вывод сообщения о максимальной последовательности красногоalert("Частота выпадания красного: " + red1/arr.length*100+'%');//вывод сообщения о проценте частоты красного}}redm=0;//обнуляем максимальную последовательность {} else //иначе если последовательность красного закончилась//то перезапишим максимальное число//больше максимального числа, if (redm>max) max=redm; //условие если последовательность redm++; //запиши максимальную последовательность red1++; //запиши сколько раз встретилось красноеif(arr[i]==-1){ //условие если красное то for (var i = 0; i<arr.length; i++) {//цикл подсчета выподания красногоalert(arr);//вывод массива}arr.push((Math.round(Math.random()*2))-1);//случайные числа от -1 до 1for (var i = 0; i <=rounds; i++) { //цикл для заполнения массиваvar max=0;//переменная для хранения максимальной последовательностиvar redm=0;//переменая для подсчёта последовательности красногоvar red1=0;//переменная для подсчёта частоты красногоvar rounds=1000000;//число раундовvar arr=[];//обьявляем массив<script><meta charset="utf-8">
Программа:
Pascal:
№1)
var arr: array[1..10] of integer;
begin
for var i := 1 to 10 do arr[i] := random(100);
writeln(arr);
end.
№2)
const N = 15;
var arr: array[1..N] of integer;
i, tmp: integer;
begin
for i := 1 to 15 do arr[i] := random(100);
writeln(arr);
for i:=1 to n div 2 do begin
tmp := arr[i];
arr[i] := arr[N - i + 1];
arr[N - i + 1]:= tmp;
end;
writeln(arr);
end.
№3)
const N = 20;
var
arr: array[1..N] of integer;
i, tmp, j: integer;
begin
for i := 1 to N do readln(arr[i]);
writeln(arr);
for i := 1 to N - 1 do
for j := 1 to N - i do
if (arr[j] > arr[j+1]) then begin
tmp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := tmp;
end;
writeln(arr);
end.