//Pascal //Массивы размеров 10 элементов заполняются случайными числами от -10 до 10
//1 var A: array[1..10] of real; i: byte; begin randomize; writeln('Исходный массив.'); for i := 1 to 10 do begin A[i] := random(21)-10; write(A[i]:5); end; writeln; writeln('Измененный массив.'); for i := 1 to 10 do begin if A[i] > 0 then A[i] := A[i] / 2 else A[i] := i; write(A[i]:5); end; writeln; end.
//2 var A: array[1..10] of integer; i: byte; mult: longint; begin mult := 1; randomize; writeln('Исходный массив.'); for i := 1 to 10 do begin A[i] := random(21)-10; mult := mult * A[i]; write(A[i]:5); end; writeln; writeln('Произведение элементов массива = ', mult); end.
Спрайт это Такие фигурки – это на самом деле рисунки или фотографии, то есть компьютерная графика.
Он выполняет функции такие как ,звуки,передвижение,решение задач
Чтобы разместить новый спрайт надо нажать на иконку спрайт и нажать добавить
Чтобы переместить спрайт надо на панеле скрипты найти Движения и переместить на область скриптов
допустим мы выбрали идти 10 шагов нажимаем на флаг и наш спрайт идёт
Чтобы добавить фон надо в списке сайтов найти кнопку "добавить новый фон"
Это всё
Объяснение:
Вроде всё но могут быть ошибки:) надеюсь
//Массивы размеров 10 элементов заполняются случайными числами от -10 до 10
//1
var
A: array[1..10] of real;
i: byte;
begin
randomize;
writeln('Исходный массив.');
for i := 1 to 10 do
begin
A[i] := random(21)-10;
write(A[i]:5);
end;
writeln;
writeln('Измененный массив.');
for i := 1 to 10 do
begin
if A[i] > 0 then A[i] := A[i] / 2
else A[i] := i;
write(A[i]:5);
end;
writeln;
end.
//2
var
A: array[1..10] of integer;
i: byte;
mult: longint;
begin
mult := 1;
randomize;
writeln('Исходный массив.');
for i := 1 to 10 do
begin
A[i] := random(21)-10;
mult := mult * A[i];
write(A[i]:5);
end;
writeln;
writeln('Произведение элементов массива = ', mult);
end.