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

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.

Если не соблюдать технику безопасности может возникнуть замыкание и пожар или можно что-либо сломать себе, повредить технику. Основными являются - не вставать по время работы за компьютером, а так же не есть за компьютерным столом/не приносить еду в класс. Неправильная посадка может привести к искривлению и другим многочисленным проблемам, если при неправильной посадке зацепить какой-либо провод можно нанести вред технике и себе. Рекомендаций не знаю сорь, но можешь написать что нельзя есть за столом, раскачиваться на стуле и.т.д

Слишком много вопросов, поэтому ответы будут даны без подробных разъяснений.
1. В году 12 месяцев, выбор 1 из 12.

2. В месяце максимум 31 день, минимум - 28 дней. Выбор от 1 из 31 до 1 из 28. Соответственно, количество информации будет в диапазоне:

3. В сутках 24 часа, выбор 1 из 24.

4.В неделе 7 дней, выбор 1 из 7.

5.
6. Если каждый раз делить интервал пополам и задавать вопрос "Находится ли число..", указывая любую из половинок, то число не превысит семи.

7. Как и в предыдущем случае, надо угадать одно число из 64-31+1=34

Надо задать три вопроса.