программа формирует изображение 4-х квадратов со стороной 1 шаг на расстоянии 1 наш по горизонтали дрг от друга:
СД ДВА ПТ ПТ ПР ПР ПТ ПТ ПТ СД ДВА выбрать описание тела процедуры два в которой используется процедура квадрат:ПРОЦЕДУРА КВАДРАТ ШГ ПТ ШГ ПТ ШГ ПТ ШГ КН ПРОЦ.
а.сД КВАДРАТ ПТ ПТ ПР ПР ПТ ПР ПТ СД КВАДРАТ
Б.СД КВАДРАТ ПТ ПТ ПР ПР ПТ ПТ ПТ СД КВАДРАТ
В. СД КВАДРАТ ПТ ПТ ШГ ШГ ПТ ПР ПТ СД КВАДРАТ
Г.СД КВАДРАТ ПТ ПТ ПР ШГ ПТ ПР ПТ СД КВАДРАТ
Д. СД КВАДРАТ ПТ ПР ШГ ПР ПТ ПР ПТ СД КВАДРАТ
2.Идем по аналогии с предыдущим интервалом : [31;55] - это 25 чисел,следовательно 25/100=25% = 0,25.
3.Интервал [25;100] - это 75 чисел. 75/100=75%=0,75.
4. Ровно 25, это единственное число,а как вы уже успели заметить - каждое число является 1 процентом. Таким образом можно сразу сказать что вероятность для этого случая 1% или 0,01.
ответ: 0.1 ; 0.25 ; 0.75 ; 0.01.
var a: array[1..n] of integer;
i, j, k: integer;
begin
randomize;
write ('Исходный массив: ');
for i := 1 to n do begin
a[i] := random(256);
write (a[i]:4); end;
writeln; writeln;
for i := 1 to n-1 do
for j := 1 to n-i do
if a[j] > a[j+1] then begin
k := a[j];
a[j] := a[j+1];
a[j+1] := k
end;
write ('массив по возрастанию: ');
for i := 1 to n do
write(а[i]:4);
writeln;
readln;
end.