Комментарии: Решаем задачи Абрамян на Паскале. Array28

Комментарии: Решаем задачи Абрамян на Паскале. Array28 https://coolcode.ru/reshaem-zadachi-abramyan-na-paskale-array28/ Скриптописание и кодинг Tue, 01 May 2018 14:51:06 +0000 hourly 1 https://wordpress.org/?v=5.8.12 Автор: Bronislav https://coolcode.ru/reshaem-zadachi-abramyan-na-paskale-array28/#comment-2345 Tue, 01 May 2018 14:51:06 +0000 http://coolcode.ru/?p=3191#comment-2345

1

2

3

4

5

// PascalABC.NET

begin

var a := ReadArrReal(ReadInteger());

a[1::2].Min.Println;

end.

1

2

3

4

5

// PascalABC.NET

begin

var a := ReadArrReal(ReadInteger());

a.Where((el,ind)->ind mod 2 = 1).Min.Println;

end.

]]>