Скриншоты

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

Общий вид

Окно вывода Сообщения об ошибках Запуск нескольких приложений одновременно Отладчик

Средства Intellisense

Подсказка по точке Подсказка по параметрам Всплывающая подсказка по имени Создание подсказки по имени

Проверяемые задания

Создание шаблона задания Решение задач для электронного задачника Решение задач для исполнителя Робот Решение задач для исполнителя Чертежник

Новости

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

// Минимальный в массиве и его индекс
// Уровень сложности: 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.