Решите ! в таблице dat хранятся данные о количестве учеников в классах (dat[1] – количество учеников в первом классе, dat[2] – во втором и т. определите, какое число будет напечатано в результате работы следующей программы. var k, m: integer; dat: array[1..11] of integer; begin 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 : = 0; for k : = 1 to 11 do if dat[k] < 25 then begin m : = m + 1 end; writeln(m) end.

Здесь с цикла считаем, сколько чисел меньше 25.

Dat[1] := 20; // 1

Dat[2] := 25;

Dat[3] := 19; // 2

Dat[4] := 25;  

Dat[5] := 26;

Dat[6] := 22;  // 3

Dat[7] := 24; // 4

Dat[8] := 28;

Dat[9] := 26;

Dat[10] := 21;  // 5

Dat[11] := 27;

ответ: 5

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

1)

begin
  var (a,b):=ReadInteger2('Введите границы диапазона:');
  var Всего:=b-a+1; // количество целых чисел в диапазоне
  var Четных,Нечетных:integer;
  if a.IsOdd then begin Четных:=Всего div 2; Нечетных:=Всего-Четных end
  else begin Нечетных:=Всего div 2; Четных:=Всего-Нечетных end; // четное a
  Writeln('Нечетных- ',Нечетных,', четных- ',Четных)
end.

Пример
Введите границы диапазона: -4 4
Нечетных- 4, четных- 5

2)

begin
  var (n,a,b):=ReadInteger3('Введите n,a,b:');
  SeqRandom(n,a,b).Println
end.

Пример
Введите n,a,b: 15 -10 35
19 33 -10 4 5 -10 10 21 17 21 14 21 24 23 18

// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var ИсходноеЧисло:=ReadlnString('Введите исходное целое число:');
  var МассивЦифрЧисла:=ИсходноеЧисло.ToCharArray;
  var МестоМаксЦифры:=МассивЦифрЧисла.IndexMax;
  var МестоМинЦифры:=МассивЦифрЧисла.IndexMin;
  If МестоМинЦифры>МестоМаксЦифры then Swap(МестоМинЦифры,МестоМаксЦифры);
  ИсходноеЧисло:=ИсходноеЧисло?[:МестоМинЦифры+1]+
      ИсходноеЧисло?[МестоМаксЦифры+2:];
  Writeln('Результат замены: ',ИсходноеЧисло)
end.

Пример
Введите исходное целое число: 1402956387
Результат замены: 1456387