Стохастично! Стохастическая матрица - это матрица, в которой сумма элементов всех строк или всех столбцов равна 1 (для стохастичности достаточно хотя бы одного, строк или столбцов). Такие матрицы часто используются, например, в теории вероятности.

Напишите программу, которая проверяет, является ли матрица стохастической. На вход программы подается два натуральных числа, N и M, через пробел, далее N строк по M вещественных чисел через пробел - значения вашей матрицы. Нужно напечатать “стохастическая” или “не стохастическая” .

program summa;

var s, a, b, c : word;

begin

            write('введите a - > '); readln(a);

            write('введите b - > '); readln(b);

            write('введите с - > '); readln(c);

            s: =a+b+c;

            write(' сумма равна ',s);

            readln

end.

program ; var n : integer; begin    for n: = 10 to 99 do        if n mod 13 = 0 then writeln(n);     readln; end.

var a: array[1..100] of integer; i,s,n,m: integer; begin randomize; read(n,m); for i : = 1 to 100 do begin a[i]: =random(m-n) +n; if (i mod 2 =0) and (a[i] mod 2 = 0) then s: =s+1; end; writeln(s); end.

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.