3-2. Социальная Дистанция - 2 Актуальной проблемой является рассадка зрителей в зрительном зале театра, - id1569308720220506 от Nope2281 06.05.2022 23:06

Question

Информатика: 3-2. Социальная Дистанция - 2 Актуальной проблемой является рассадка зрителей в зрительном зале театра, кинотеатра, концертного зала и т.Д. с соблюдением дистанции между занятыми местами. При этом желательно посадить в зале как можно больше зрителей, соблюдая минимальную требуемую дистанцию между местами. Зрительный зал представляет собой прямоугольник размером Nx M, состоящий из единични квадратов — мест. Расстоянием между местами будем считать сумму расстояний между ним по горизонтали и по вертикали.

Nope2281 · Accepted Answer

// Дан массив целых чисел. Все нечетные элементы удвоить, а четные уменьшить вдвое.

var a: array [1..10] of real; // возьмем массив из 10 чисел
i,x :byte;
begin
randomize;
for i:=1 to 10 do //заполняем исходный массив случайными числами (до 1000)
begin
a[i]:=random(1000);
writeln (i,' элемент исходного массива ',a[i]);
end;
writeln ();
for i:=1 to 10 do
begin
x:=i mod 2; //определяем четный или нет элемент массива
if x=0 then //если элемент четный
begin
a[i]:=a[i]/2;
writeln (i,' элемент массива - четный ',a[i]);
end
else //если элемент нечетный
begin
a[i]:=a[i]*2;
writeln (i,' элемент массива - нечетный ',a[i]);
end;
end;
end.

MOGZ ответил