var
a: array[1..50] of integer;
i,f, n: integer;
begin
write('n=');
readln(n);
for i := 1 to n do
begin
write('a', i, '=');
readln(a[i]);
end;
f := 0;
writeln;
for i := 1 to n - 1 do
if (a[i] mod 2 <> 0) and (a[i + 1] mod 2 = 0) then f := 1;
if f = 0 then
begin
for i := 1 to n do
if a[i] < 0 then write(a[i]:4);
end
else
for i := 1 to n do
if a[i] > 0 then write(a[i]:4);
end.
Просто смотрим какое число по модулю больше и из него вычитаем, а так как уменьшаемое меньше чем вычитаемое, то подставляем минус.
Ответ:
Я думаю дядей будет, наверное.
Дан двоичный код 11010001. какие клетки будут закрашены чёрным? А) 2,4,5,6,7,8, Б)1,2,4,8, С)2,9,0. Д)1,9
elenisatori
1- черный
2- белый
Проверим Б
первое число 1, второе 1, четвертое 1 и восьмое 1
Ответ: Б