Втаблице dat хранятся данные о количестве сделанных учениками (dat[1] – сделал первый ученик dat[2] – второй ученик и т. определите, что будет напечатано в результате работы следующей программы. алгоритмический языкалг нач целтаб dat[1: 11] цел k, m dat[1]: =20; dat[2]: =25 dat[3]: =19; dat[4]: =25 dat[5]: =26; dat[6]: =22 dat[7]: =24; dat[8]: =28 dat[9]: =26; dat[10]: =21 dat[11]: =27 m: = 30 нц для k от 1 до 11 если dat[k] < m то m: =dat[k] все кц вывод m кон

будет выведенно число 19

Procedure ghishi(var s : string; var n : byte); var i : byte; begin   n: =0;   for i: =1 to length(s)-1 do       if (s[i] in ['ж','ш']) and (s[i+1]='ы') then       begin           s[i+1]: ='и';           inc(n);       end; end; var st : string; k : byte; begin   { readln(st); }  st: ='"жы" и "шы" пишы через "и"';   ghishi(st,k);   writeln(st);   writeln('количество ошибок: ',k); end.

var

  number, n, npol, notr, n0, i: integer;   {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

 

begin

  writeln('введите n');

  readln(n);

  for i: = 1 to n do

  begin

    writeln('введите целое число');

    readln(number);

    if number < 0 then notr: = notr + 1;

    if number > 0 then npol: = npol + 1;

    if number = 0 then n0: = n0 + 1;

  end;

  writeln('было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей');

end.

а для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.