Книги Валерия Рубанцева

Просмотров: 29026

Новости

09.03.22. Вышла версия 3.8.3. Основное - цикл for с шагом, цикл foreach с индексом. Список изменений - здесь.

24.08.21. Вышла версия 3.8.1. Основное - атрибут [Cache] и модуль PlotWPF. Список изменений - здесь.

20.03.21. Опубликован материал "PascalABC.NET и ЕГЭ по информатике 2021"

12.03.21. Опубликован первый интерактивный курс по PascalABC.NET на платформе Stepik.

07.03.21. Вышла версия PascalABC.NET 3.8. Основное: срезы многомерных массивов и распаковка составных параметров лямбда-выражений в переменные. Список основных изменений - здесь.

Случайная программа

// Минимальный в массиве и его индекс
// Уровень сложности: 1
function MinInd(a: array of real): integer;
begin
  var min := a[0];
  Result := 0;
  for var i:=1 to a.Length-1 do
    if a[i]<min then
    begin
      min := a[i];
      Result := i;
    end;
end;


const n = 20;

begin
  var a := ArrRandomReal(n);
  Writeln('Исходный массив: ');
  a.Println;

  var ind := MinInd(a);
  Writeln('min=',a[ind],' индекс=',ind);
end.