Добрые люди, с разыгрывания случайной величины по нормальному распределению, увы не понимаю эту тему см. фото

ответ: 7

Объяснение:

Данная программа проверяет значения ячеек массива от Dat[1] до Dat[11], если значение больше 22, тогда к переменной m прибавляется 1.

Изначально m = 0

Dat[1] := 20; > 22 нет, переходим к следующему шагу.

Dat[2] := 25; > 22 да, к m прибавляем 1, m = 0 + 1 = 1

Dat[3] := 19;  > 22 нет, переходим к следующему шагу.

Dat[4] := 25; > 22 да, к m прибавляем 1, m = 1 + 1 = 2

Dat[5] := 26;  > 22 да, к m прибавляем 1, m = 2 + 1 = 3

Dat[6] := 22;  > 22 нет, переходим к следующему шагу.

Dat[7] := 24;  > 22 да, к m прибавляем 1, m = 3 + 1 = 4

Dat[8] := 28;  > 22 да, к m прибавляем 1, m = 4 + 1 = 5

Dat[9] := 26;  > 22 да, к m прибавляем 1, m = 5 + 1 = 6

Dat[10] := 21;  > 22 нет, переходим к следующему шагу.

Dat[11] := 27; > 22 да, к m прибавляем 1, m = 6 + 1 = 7

Строка writeln(m); означает, что программа должна вывести на экран значение переменной m

Значит в ре­зуль­та­те ра­бо­ты про­грам­мы будет на­пе­ча­та­но: 7

Program ZAD00; {} uses crt;
var a,b:array[1..20] of real;
i:integer;
mina,minb,s:real;
Begin
{ заполнение массива А}
for i:=1 to 7 do begin write('введите элементы a[',i,']='); read(a[i]); end;
{ заполнение массива B}
for i:=1 to 9 do begin write('введите элементы b[',i,']='); read(b[i]); end;
{ min в массиве А}
mina:=a[1];
for i:=1 to 7 do begin
a[8]:= 32767 ;
if (a[i]>= a[i+1]) and (a[i+1]<=mina) then mina:=a[i+1]  end;
{ min в массиве B}
minb:=b[1];
for i:=1 to 9 do begin
b[10]:=32767;
if (b[i]>= b[i+1]) and (b[i+1]<=minb) then minb:=b[i+1]  end;
{ сложение minA и minB}
s:=mina+minb;
{ вывод результатов на экран
for i:=1 to 7 do begin write(a[i],' '); writeln; end;
for i:=1 to 9 do begin write(b[i],' '); writeln; end;
writeln('minA=',mina);
writeln('minB=',minb);
writeln('сумма их s=', s);
End.