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.