Сначала суток прошло n секунд (n - целое найти количество секунд, прошедших с начала последней минуты. pascal блок построения

var

    n : integer;

begin

    write('n=');

    readln(n);

    writeln(n mod 60);

end.

Const     n = 8; var     a: array[1..n] of integer;     i,ko: integer; begin write('исходный массив: '); ko: =0; for i: = 1 to n do       begin       a[i]: =random(21)-10;       write(' ',a[i]);       if a[i]< 0 then ko: =ko+1;       end; writeln; writeln('кол-во отрицательных элементов массив: ',ko); end. пример: исходный массив: -6 -6 -6 5 7 6 10 -3 кол-во отрицательных элементов массив: 4

// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! type   mas=array[,] of integer; procedure getmas(s: string; var a: mas); begin   writeln('*** массив ',s,' ***');   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('вводите элементы массива');   a: =readmatrinteger(n,m) end; function sumdiag(a: mas): integer; begin   result: =0;   for var i: =0 to min(a.rowcount,a.colcount)-1 do result+=a[i,i] end; begin   var a,b,c: mas;   getmas('a',a);   getmas('b',b);   getmas('c',c);   writeln('общая сумма элементов главных диагоналей равна ',       sumdiag(a)+sumdiag(b)+sumdiag(c)) end. пример *** массив a *** количество строк в массиве: 3 количество столбцов в массиве: 4 вводите элементы массива -33 -50  34 -41 -31  10  37  31 32 -49 -32 -27 *** массив b *** количество строк в массиве: 2 количество столбцов в массиве: 2 вводите элементы массива -22 35 0 11 *** массив c *** количество строк в массиве: 3 количество столбцов в массиве: 2 вводите элементы массива 23 38 17 -8 16 -1 общая сумма элементов главных диагоналей равна -51