Циклические алгоритмы на первом фото, на втором точно не знаю, но там требуется выполнить блок схему. - id1373385920200808 от Denchik111111111111 08.08.2020 02:57

Question

Информатика: Циклические алгоритмы на первом фото, на втором точно не знаю, но там требуется выполнить блок схему. Буду очень благодарен.

Denchik111111111111 · Accepted Answer

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

begin
var a:=ArrRandom(20,0,1000); a.Println;
a.Where(t->t.IsEven and (t mod 3 <>0)).Min.Println
end.

Пример
897 808 642 381 727 241 898 600 945 170 613 216 651 884 54 648 94 403 516 509
94

begin
var a:=ArrRandom(30,-50,50); a.Println;
var b:=a.Select(t -> t<0 ? -t : t).ToArray; b.Println
end.

Пример
-35 13 -17 -31 -16 -26 19 -3 -15 50 7 -29 39 1 48 14 7 23 3 -14 -8 -17 -32 -29 -9 28 -4 12 3 5
35 13 17 31 16 26 19 3 15 50 7 29 39 1 48 14 7 23 3 14 8 17 32 29 9 28 4 12 3 5

Циклические алгоритмы на первом фото, на втором точно не знаю, но там требуется выполнить блок схему. Буду очень благодарен.

MOGZ ответил