Заполните таблицу,используя скрипты своей игры.1.Название спрайта,фона.2.скрипты спрайта,фона.3.ожидаемое действие​

1.Малды қолға үйрету нешінші мыңжылдықта басталды?

2.Жайлымның неше түрі бар?

3.Әйгілі зерттеуші И.Я.Златкин мал шаруашылығы туралы қандай пікір қалдырды?

4.Тебіндеп деген сөздің мағынасы қандай?1.Малды қолға үйрету нешінші мыңжылдықта басталды?

2.Жайлымның неше түрі бар?

3.Әйгілі зерттеуші И.Я.Златкин мал шаруашылығы туралы қандай пікір қалдырды?

1.Малды қолға үйрету нешінші мыңжылдықта басталды?

2.Жайлымның неше түрі бар?

3.Әйгілі зерттеуші И.Я.Златкин мал шаруашылығы туралы қандай пікір қалдырды?

1.Малды қолға үйрету нешінші мыңжылдықта басталды?

2.Жайлымның неше түрі бар?

3.Әйгілі зерттеуші И.Я.Златкин мал шаруашылығы туралы қандай пікір қалдырды?

4.Тебіндеп деген сөздің мағынасы қандай?

4.Тебіндеп деген сөздің мағынасы қандай?

4.Тебіндеп деген сөздің мағынасы қандай?

Программа:

Pascal:

1.

const N = 10;

var

 pol, otr, nul, i: integer;

 arr: array[1..N] of integer;

begin

 randomize;

 for i := 1 to N do begin

   arr[i] := random(-10, 10);

   if arr[i] > 0 then inc(pol);

   if arr[i] = 0 then inc(nul);

   if arr[i] < 0 then inc(otr);

 end;

 writeln('Массив: ',arr);

 writeln('Положительных чисел: ', pol);

 writeln('Нулей: ', nul);

 writeln('Отрицательных чисел: ', otr);

end.

2.

const N = 10;

var

 t: boolean;

 pol, otr, nul, i: integer;

 arr: array[1..N] of integer;

begin

 randomize;

 for i := 1 to N do begin

   arr[i] := random(-10, 10);

   if arr[i] > 0 then inc(pol);

   if arr[i] = 0 then inc(nul);

   if arr[i] < 0 then begin

   t := True;

   inc(otr);

   end;

 end;

 writeln('Массив: ',arr);

 writeln('Положительных чисел: ', pol);

 writeln('Нулей: ', nul);

 writeln('Отрицательных чисел: ', otr);

 writeln(t);

end.