Даны два ненулевых числа. найти их сумму, разность, произведение и частное.

program xxx;

  var a, b, s : real;

              r, p, d : real;

begin

    write ('введите певрое число- ');

    readln (a);

    write ('введите второе число- ');

    readln (b);

    s: = a+ b;

    r : = a - b;

    p : = a* b;

    d : = a/b;

    writeln ('сумма =', s);

    writeln ('разность =', r);

    writeln ('произведение =', p);

    writeln ('частное = ', d);

    readln

end.

// pascalabc.net 3.2, сборка 1425 от 22.04.2017 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк в матрице: ');   var m: =readinteger('количество столбцов в матрице: ');   writeln('*** исходная матрица [',n,',',m,'] ***');   var a: =matrrandom(n,m,-9,9);   a.println(3); writeln(3*a.colcount*'-');   // 1. удалить строки с нулевыми элементами   var v: =a.rows.select(x-> x.all(y-> y< > ;   var q: =new integer[v.where(r-> r=true).count,a.colcount];   var k: =0;   for var i: =0 to v.count-1 do       if v[i] then begin           q.setrow(k,a.row(i)); k+=1           end;   writeln('матрица, не содержащая строк с нулями');   a: =copy(q);   a.println(3);   // 2. отсортировать элементы первого столбца по возрастанию   a.setcol(0,a.col(0).orderby(x-> x).toarray);   writeln('матрица с отсортированной колонкой 1');   a.println(3);   // 3. игры с k и b   var b: integer;   write('введите значения b и 1< =k< =',a.rowcount,': '); read(b,k);   for var j: =k to a.rowcount-1 do a[j,m-1]+=b;       writeln('матрица с модифицированной последней колонкой');   a.println(3) end. пример количество строк в матрице: 5 количество столбцов в матрице: 8 *** исходная матрица [5,8] ***   -4 -8  4 -4  8 -6  5 -2   2 -7 -4  6  8  4  9 -8   0 -8 -4 -7 -4 -7  6 -3   6 -4 -8  9 -7 -5 -3 -2   -9  7 -1 -2 -9  9  7  4 матрица, не содержащая строк с нулями   -4 -8  4 -4  8 -6  5 -2   2 -7 -4  6  8  4  9 -8   6 -4 -8  9 -7 -5 -3 -2   -9  7 -1 -2 -9  9  7  4 матрица с отсортированной колонкой 1   -9 -8  4 -4  8 -6  5 -2   -4 -7 -4  6  8  4  9 -8   2 -4 -8  9 -7 -5 -3 -2   6  7 -1 -2 -9  9  7  4 введите значения b и 1< =k< =4: 5 2 матрица с модифицированной последней колонкой   -9 -8  4 -4  8 -6  5 -2   -4 -7 -4  6  8  4  9 -8   2 -4 -8  9 -7 -5 -3  3   6  7 -1 -2 -9  9  7  9 замечание: под удалением без всяких условностей понимается именно удаление. матрица после удаления просто содержит меньшее количество строк.

1способ: const n=10;   var a: array[1..n] of integer; i,k: integer;   begin randomize; writeln('массив a: '); for i: =1 to n do   begin   a[i]: =random(51);   write(a[i]: 4);   end; writeln; k: =0; for i: =1 to n do   if a[i] mod 2 = 0 then k: =k+1; writeln('k = ',k); end. пример: массив a:   46 25 6 30 10 2 47 3 37 10 k = 62 способ: beginvar a: =arrrandom(10,1,50).println; writeln('k=',a.where(x-> x mod 2=0).count); end.пример: 25 35 2 38 39 5 8 31 11 12k=4