У кого Honor 9A,подскажите, как поставить обои на экран блокировки чтобы они каждый раз менялись?

Question

Информатика: У кого Honor 9A,подскажите, как поставить обои на экран блокировки чтобы они каждый раз менялись? ​

АааLoo · Accepted Answer

Const
n = 15;

var
a:array[1..n] of integer;
i,sp,sn: integer;

begin
Randomize;
Writeln('Элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
    a[i] := Random(51)-25;
    Write(a[i]:4);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
end;
Writeln;
Writeln('Частное: ',sp/abs(sn))
end.

Тестовое решение:
Элементы массива
   2 -25   0   5 24   4   3   1 12 13 10   1   6 13 -17
Частное: 2.23809523809524

Вариант со вводом данных с клавиатуры:
const
n = 15;

var
a:array[1..n] of integer;
i,sp,sn: integer;

begin
Writeln('Вводите через пробел элементы массива');
sp:=0; sn:=0;
for i := 1 to n do
begin
    Read(a[i]);
    if a[i]<0 then sn:=sn+a[i]
    else sp:=sp+a[i]
end;
Writeln('Частное: ',sp/abs(sn))
end.

У кого Honor 9A,подскажите, как поставить обои на экран блокировки чтобы они каждый раз менялись? ​

MOGZ ответил