5x Сместиться на (1, 2) Сместиться на (−2, 2) Сместиться на (2, −3)
5x Сместиться на (1 - 2 + 2, 2 + 2 - 3)
5x Сместиться на (1, 1)
Сместиться на (5, 5) =>
Сместиться на (-5, -5)
Ответ: 4.
//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.
просто напиши свою дату по клеткам
Var D: array [1..35] of integer;
i, sum : integer;
<span>BEGIN
</span>for i:=1 to 35 do
read(D[i]);
<span>sum:=0;
for i:=1 to 35 do
if i mod 2 <> 0 then sum:=sum+D[i];
writeln(sum);
END.</span>
Извините, пожалуйста но чтобы добавить картинку нужно когда пишешь вопрос нажать на скрепочку (фото)
