Ответ: Спасибо, но мне бы на паскале(
Ответ: Попробую сейчас еще на паскале написать
Ответ: а нет, не попробую, я его не помню (
Ответ: ну ладно(
Ответ: Спасибо, но мне бы на паскале(
Ответ: Попробую сейчас еще на паскале написать
Ответ: а нет, не попробую, я его не помню (
Ответ: ну ладно(
Ответ: PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(20, -50, 50);
a.Println;
var min := a.Where(t -> t.IsEven).Min;
var i := a.IndexOf(min);
Writeln(‘a[‘, i + 1, ‘] = ‘, min)
end.
Пример
39 -37 21 13 26 1 37 -19 21 39 -34 -23 22 46 8 -6 -21 39 47 32
a[11] = -34