Сценарий игры «Времена года» No 2 3 4 Этапы Содержание создания игры Жанр игры Познавательная игра. Название игры : Времена года. Цель игры: различать предметы, которые Цель игры и её используются в четырёх временах года. Во описание время игры выдаётся 8 различных предметов, относящихся к разным временам года. В конце игры каждый предмет должен быть Правила размещён во времени года в зависимости от использования. В игре нет главного героя. В качестве пер- Персонажи сонажей в зависимости от времени года были выбраны восемь различных предметов. Игра состоит из одного сюжета, Сюжет повторяющегося 8 раз. 1. Начало игры и определение времени. 2. Распределение персонажей Сценарий (один сюжет повторяется 8 раз). 3. Завершение игры. 6 7 37

(АСУ) , совокупность математических методов, технических средств (ЭВМ, средств связи, устройств отображения информации и т. д.) и организационных комплексов, обеспечивающих рациональное управление сложным объектом (процессом) в соответствии с заданной целью. АСУ состоит из основы и функциональной части. В основу входят информационное, техническое и математическое обеспечение. К функциональной части относят набор взаимосвязанных программ, автоматизирующих конкретные функции управления (планирование, финансово-бухгалтерскую деятельность и др.). Различают АСУ объектами (технологическими процессами - АСУТП, предприятием - АСУП, отраслью - ОАСУ) и функциональными автоматизированными системами, напр., проектирования, расчетов, материально-технического и др. обеспечения.

//Визуально разделил циклы, чтобы было более читаемо 

var ar:array[1..10] of integer;
max,i:integer;
begin;
randomize; //чтобы random() работал как надо
writeln('Array');

for i:=1 to 10 do
begin;
ar[i]:=random(-10,10); //случайное число от -10 до 10
write(ar[i]:4);
end;

for i:=1 to 10 do //"проходим" через весь массив
if (ar[i]<0) and (max<abs(ar[i])) then max:=abs(ar[i]);
{если элемент массива меньше нуля и его модуль больше максимума тогда записать модуль этого числа в максимум}

writeln;
writeln('Max:-',max); //выводим на всякий случай максимум

writeln('Final array:');
for i:=1 to 10 do //снова проходим по всему массиву
begin;
if ar[i]=-max then ar[i]:=0; 
{если элемент равен отрицательному максимуму(мы брали модуль) присвоить ему 0}
write(ar[i]:4);
end;
end.