Игра в Жизнь Необходимо написать программу(язык не - вопрос №17525941 от 380674944183 22.07.2021 04:04

Question

Информатика: Игра в Жизнь Необходимо написать программу(язык не важен). На входе нам даётся количество повторений, а также матрица 5*5 нулей и единиц. В случае, если около единицы ноль(сверху, слева, справа и снизу), он меняется на один. Если же наоборот около единицы один, то она меняется на ноль. На вывод должна пойти матрица, после n-ых повторений. Пример 1: Ввод: 1 00000 00000 00100 00000 00000 Вывод: 00000 00100 01110 00100 Пример 2: Ввод: 2 00000 00000 00100 00000 00000 Вывод: 00100 01010 10001 01010 00100

380674944183 · Answer

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:= ArrRandom(10, -100, 100);a.Println;
Writeln('Количество отрицательных элемнтов -> ', a.Where(t -> t < 0).Count);
Writeln('Сумма отрицательных элеменов ->', a.Where(t -> t < 0).Sum);
Writeln('Среднее значение положительных элементов ->', a.Where(t -> t > 0).Average);
if a.Where(t -> t > 0).Count > 0 then
Writeln('Максимальное положительное значение -> ', a.Where(t -> t > 0).Max)
else Writeln('Положительных чисел нет');

end.