begin
var a, b: integer;
repeat
(a, b) := ReadInteger2('введите a и b в одной строке через пробел:');
if a >= b then Println('a должно быть меньше b');
until a < b;
Randomize;
loop 5 do
Print(Random(a, b))
end.
Расположить наименования в след. порядке: 7 -4 -1 -8 -5 -6 -3 -2
Program dialog;
var
a: integer;
begin
writeln('Привет! Какая у вас температура? ');
readln(a);
if a>37 then
writeln('Лечитесь дома')
else if a<36 then
writeln('Седите дома')
else
writeln('Идите в шоклу');
end.
В целом задача сформулироване не корректно.
В первом случае неопределённость = 1/3 т.к существует всего 3 варианта решения.
В случае оценки вероятностей то 30\%/30\%/40\%
Раскладываем 0.3 - вероятность того, что этот дом деревянный, 0.4 - вероятность, что из кирпича, 0.3
<em>// PascalABC.NET 3.2, сборка 1344 от 22.11.2016</em>
<em>// Внимание! В более ранних версиях программа работать не будет!</em>
begin
var d:=MatrRandom(4,4,-20,20);
Writeln('Исходный массив'); d.Println(4);
var s:=d[0,0];
for var i:=1 to 3 do begin d[i,i]:=d[i,0]; s+=d[i,i] end;
Writeln('Полученный массив'); d.Println(4);
Writeln('Сумма на главной диагонали ',s)
end.
<u>Пример</u>
Исходный массив
14 8 -12 12
15 -9 -16 -6
18 -7 7 5
-7 -12 -10 -14
Полученный массив
14 8 -12 12
15 15 -16 -6
18 -7 18 5
-7 -12 -10 -7
Сумма на главной диагонали 40