Гость Оʻzbek tili Архивный вопрос

Заменить на 1 все элементы массива С1,С2....Сn находящиеся в интервале [1,2]

Нет комментариев

Ответы

Гость Гость

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

begin
  var a:=ArrRandomReal(ReadInteger(\'n=\'),0,3); a.Println;
  a.Transform(x->(x>=1) and (x<=2)?1.0:x); a.Println
end.

Пример
n= 5
0.555734023244928 1.04867691874908 0.0153413121659967 1.08162656430231 2.92952936139401
0.555734023244928 1 0.0153413121659967 1 2.92952936139401

комментариев 2 :
спасибо)
а с этим не поможете?))определить количество членов послдовательности а1,а2 имеющих четные номера и являющимися чеными числами