Question

Написать программу для решения задачи: Произвольно вводится одномерный массив из 15 целых чисел, все числа больше -10 и меньше 10. Вывести массив на экран. Найти наименьшее четное число и наибольшее нечетное число. Посчитать количество нулей в массиве. Заменить отрицательные числа числом 300 и вывести измененный массив на экран

Answer 1

PascalABC.Net

begin  var a := ArrRandom(15, -10, 10);  Println('Массив', a);  Println('Наименьшее четное: ', a.Where(x -> not Odd(x)).Min);  Println('Наибольшее нечетно: ', a.Where(x -> Odd(x)).Max);  Println('Колличество нулей: ', a.Where(x -> x = 0).Count);  Print('Измененный массив: ');  for var i := 0 to High(a) do    if a[i] < 0 then    begin      a[i] := 300;    end;  Print(a); end.